From 1ee7638e810960e069725c736b2f074c60b1e0ab Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Sat, 3 Nov 2012 20:11:04 -0400 Subject: [PATCH] Fix parsing issue when misconverting to optima. --- process-spec.lisp | 2 +- test.lisp | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/process-spec.lisp b/process-spec.lisp index a17c403..ff52ea0 100644 --- a/process-spec.lisp +++ b/process-spec.lisp @@ -317,7 +317,7 @@ (`(quote ,@args) ;; quote (e (xcvb-driver:escape-command (parse-command-spec-tokens args)))) - (`(,(typep simple-command-line-token) _) ;; recurse + (`(,(typep simple-command-line-token) ,@_) ;; recurse (map () #'p x)) (_ (error "Unrecognized command-spec token ~S" x))))) diff --git a/test.lisp b/test.lisp index 9db50d4..2698cc4 100644 --- a/test.lisp +++ b/test.lisp @@ -14,7 +14,8 @@ :documentation "Testing 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) (tr "hw" "HW") (sed -e "s/$/!/"))) "Hello, World!"))) -- GitLab