From: Stelian Ionescu <sionescu@cddr.org>
Date: Sat, 30 Mar 2013 01:11:55 +0000 (+0100)
Subject: Remove unnecessary ENSURE-LIST
X-Git-Tag: v0.8.1~76
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/1c3684ee72471f92aa36d2d34bb69017b2adf711

Remove unnecessary ENSURE-LIST
---

diff --git a/src/os/create-process-unix.lisp b/src/os/create-process-unix.lisp
index 1b118c7..0bc18c1 100644
--- a/src/os/create-process-unix.lisp
+++ b/src/os/create-process-unix.lisp
@@ -136,11 +136,11 @@
     ((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)