cl-rw

commit d723cd692178aeadd10a3c8b6dc20b28200e151b
parent f5793e5d6302c8703a482bfbef70fda7a39a0901
Author: Tomas Hlavaty <tom@logand.com>
Date:   Thu, 29 Aug 2013 23:51:59 +0200

fix call-with-program-output, wait if simple sync call

Diffstat:
M
os.lisp
 | 
2
++

1 file changed, 2 insertions(+), 0 deletions(-)
diff --git a/os.lisp b/os.lisp
@@ -137,6 +137,8 @@
 
 (defun call-with-program-output (output cmd args error-plist fn)
   (let ((p (make-program nil output cmd args)))
+    (unless output
+      (funcall p 'wait))
     (unwind-protect
          (multiple-value-bind (status code) (funcall p 'status-and-code)
            (assert (member status '(:running :exited)))