r8632: updates

[kmrcl.git] / os.lisp

diff --git a/os.lisp b/os.lisp
index b31d4bad074778e58d27548677d4457511e2a281..589eac4b74e89a2ef798ce01030315a3770a87b9 100644 (file)
--- a/os.lisp
+++ b/os.lisp
@@ -80,11 +80,8 @@ returns (VALUES output-string pid)"
     
     
     #+allegro
-    (multiple-value-bind (output dummy pid)
-       (excl:run-shell-command command :input nil :output :stream
-                               :wait nil)
-      (declare (ignore dummy))
-      (values output pid))
+    (excl:run-shell-command command :input nil :output nil
+                           :wait t)
 
     #+lispworks
     (system:call-system-showing-output