cl-rw

commit bca0e0a6503a41cb85e043d93a604a781807bc35
parent 16eda13c367b19579c12f03b76b15a662554736d
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun,  2 Nov 2014 13:59:06 +0100

fix args to make-program

Diffstat:
M
concurrency.lisp
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/concurrency.lisp b/concurrency.lisp
@@ -99,7 +99,7 @@
   #+sbcl (sb-concurrency::make-thread fn :name (string name)))
 
 (defun make-program-server (command args writer reader)
-  (let ((p (rw.os:make-program :stream :stream command args))
+  (let ((p (rw.os:make-program :stream :stream command args nil))
         (wq (make-concurrent-queue)))
     (make-thread 'program-server-writer
                  (let ((s (funcall p :input-stream)))