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