cl-rw

commit d068d3963f29fa90475333fcffc92a641e70a0f1
parent c0f27706524c1a81ba7f2aa9506a94f8c7f80b1f
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 11 Apr 2015 21:14:16 +0200

porting fixes

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

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/os.lisp b/os.lisp
@@ -88,7 +88,7 @@
         (ecase msg
           (:fail (fail (nth-value 2 (ext:external-process-status p))))
           (:status-and-code (ext:external-process-status p))
-          (:streams (values io io))
+          (:streams (values (when input io) (when output io)))
           (:wait (ext:external-process-wait p))
           (:close (when io (close io)))))) ;; TODO is this the right thing to close process?
     #+mkcl
@@ -168,7 +168,7 @@
              (ecase msg
                (:fail (fail 0))
                (:status-and-code (values :running 0))
-               (:streams (values i o))
+               (:streams (values (when input i) (when output o)))
                (:wait)
                (:close (close i)
                        (close o)))))))