cl-rw

Layered streams for Common Lisp
git clone https://logand.com/git/cl-rw.git/
Log | Files | Refs

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:
Mos.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)))