From b902991302d33f33bc5060ca163981e08fc824cf Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 11 Mar 2013 18:30:48 +0100 Subject: [PATCH] Fix missing unquoting in WITH-ARGV --- src/os/create-process-unix.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/os/create-process-unix.lisp b/src/os/create-process-unix.lisp index 5ca9b1b..1b118c7 100644 --- a/src/os/create-process-unix.lisp +++ b/src/os/create-process-unix.lisp @@ -141,7 +141,7 @@ (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))) -- 2.11.4.GIT