Remove unnecessary ENSURE-LIST
authorStelian Ionescu <sionescu@cddr.org>
Sat, 30 Mar 2013 01:11:55 +0000 (30 02:11 +0100)
committerStelian Ionescu <sionescu@cddr.org>
Sat, 30 Mar 2013 01:11:55 +0000 (30 02:11 +0100)
src/os/create-process-unix.lisp

index 1b118c7..0bc18c1 100644 (file)
     ((eql :shell program)
      (list "/bin/sh" "-c"))
     (t
-     (file-path-namestring program))))
+     (list (file-path-namestring program)))))
 
 (defmacro with-argv (((arg0 argv) program arguments) &body body)
   (with-gensyms (argc)
-    `(let* ((,program (ensure-list (find-program ,program)))
+    `(let* ((,program (find-program ,program))
             (,arguments (append (cdr ,program) ,arguments))
             (,argc (+ 2 (length ,arguments))))
        (with-foreign-object (,argv :pointer ,argc)