From: Stelian Ionescu <sionescu@cddr.org>
Date: Mon, 11 Mar 2013 17:30:48 +0000 (+0100)
Subject: Fix missing unquoting in WITH-ARGV
X-Git-Tag: v0.8.1~77
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/b902991302d33f33bc5060ca163981e08fc824cf

Fix missing unquoting in WITH-ARGV
---

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)))