#+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