cl-rw

commit 920c012417317204eae9f8111b9b8202077bf840
parent d723cd692178aeadd10a3c8b6dc20b28200e151b
Author: Tomas Hlavaty <tom@logand.com>
Date:   Fri, 30 Aug 2013 00:08:42 +0200

rw.os ecl fix

Diffstat:
M
os.lisp
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/os.lisp b/os.lisp
@@ -61,7 +61,7 @@
                        :input input
                        :output output
                        :error nil
-                       :wait nil)
+                       :wait (not (or input output))) ;; TODO why wait=nil + wait call doesnt work?
     (declare (ignore x))
     (let ((status (ext:external-process-status p)))
       (if input
@@ -73,7 +73,7 @@
         (input-stream io)
         (output-stream io)
         (wait (ext:external-process-wait p))
-        (close (warn "TODO #+ecl MAKE-PROGRAM port CLOSE")))))
+        (close (when io (close io)))))) ;; TODO is this the right thing to close process?
   #+sbcl
   (let ((p (sb-ext:run-program cmd
                                args