Fix missing unquoting in WITH-ARGV
authorStelian Ionescu <sionescu@cddr.org>
Mon, 11 Mar 2013 17:30:48 +0000 (11 18:30 +0100)
committerStelian Ionescu <sionescu@cddr.org>
Mon, 11 Mar 2013 17:30:48 +0000 (11 18:30 +0100)
src/os/create-process-unix.lisp

index 5ca9b1b..1b118c7 100644 (file)
 (defmacro with-argv (((arg0 argv) program arguments) &body body)
   (with-gensyms (argc)
     `(let* ((,program (ensure-list (find-program ,program)))
-            (arguments (append (cdr ,program) arguments))
+            (,arguments (append (cdr ,program) ,arguments))
             (,argc (+ 2 (length ,arguments))))
        (with-foreign-object (,argv :pointer ,argc)
          (isys:bzero ,argv (* ,argc (isys:sizeof :pointer)))