projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
#+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
#+lispworks
(system:call-system-showing-output