From 1c3684ee72471f92aa36d2d34bb69017b2adf711 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sat, 30 Mar 2013 02:11:55 +0100 Subject: [PATCH] Remove unnecessary ENSURE-LIST --- src/os/create-process-unix.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.11.4.GIT