Skip to content
Snippets Groups Projects
Commit 1ee7638e authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix parsing issue when misconverting to optima.

parent fefbaaca
No related branches found
No related tags found
No related merge requests found
...@@ -317,7 +317,7 @@ ...@@ -317,7 +317,7 @@
(`(quote ,@args) ;; quote (`(quote ,@args) ;; quote
(e (xcvb-driver:escape-command (e (xcvb-driver:escape-command
(parse-command-spec-tokens args)))) (parse-command-spec-tokens args))))
(`(,(typep simple-command-line-token) _) ;; recurse (`(,(typep simple-command-line-token) ,@_) ;; recurse
(map () #'p x)) (map () #'p x))
(_ (_
(error "Unrecognized command-spec token ~S" x))))) (error "Unrecognized command-spec token ~S" x)))))
......
...@@ -14,7 +14,8 @@ ...@@ -14,7 +14,8 @@
:documentation "Testing inferior-shell")) :documentation "Testing inferior-shell"))
(defun do-test-inferior-shell () (defun do-test-inferior-shell ()
(is (equal (run/ss "echo 1 2 3") "1 2 3")) (is (equal (run/ss '(echo (1) "2" (+ 3))) "1 2 3"))
(is (equal (run/ss "echo 1 2 3") "1 2 3"))
(is (equal (run/ss `(pipe (echo (+ hel "lo,") world) (is (equal (run/ss `(pipe (echo (+ hel "lo,") world)
(tr "hw" "HW") (sed -e "s/$/!/"))) (tr "hw" "HW") (sed -e "s/$/!/")))
"Hello, World!"))) "Hello, World!")))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment