Commit c3e149a8 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Tentative fix for run-program test failures on LispWorks.

parent 32355c3f
......@@ -336,10 +336,15 @@ EXTERNAL-FORMAT for the stream passed to the OUTPUT processor."
(list (run 'ext:run-program (car command)
:arguments (cdr command)))))
#+lispworks
(system:run-shell-command
(cons "/usr/bin/env" command) ; lispworks wants a full path.
:input interactive :output (or (and pipe :stream) interactive)
:wait wait :save-exit-status (and pipe t))
(if interactive
(system:call-system-showing-output
(cons "/usr/bin/env" command) ; lispworks wants a full path.
:show-cmd nil
:wait wait)
(system:run-shell-command
(cons "/usr/bin/env" command) ; lispworks wants a full path.
:input nil :output (and pipe :stream)
:wait wait :save-exit-status (and pipe t)))
#+(or clozure cmu ecl sbcl scl)
(#+(or cmu ecl scl) ext:run-program
#+clozure ccl:run-program
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment