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
Loading
Loading
Loading
Loading
+9 −4
Original line number Original line Diff line number Diff line
@@ -336,10 +336,15 @@ EXTERNAL-FORMAT for the stream passed to the OUTPUT processor."
                             (list (run 'ext:run-program (car command)
                             (list (run 'ext:run-program (car command)
                                        :arguments (cdr command)))))
                                        :arguments (cdr command)))))
                         #+lispworks
                         #+lispworks
                         (system:run-shell-command
                         (if interactive
                          (cons "/usr/bin/env" command) ; lispworks wants a full path.
                             (system:call-system-showing-output
                          :input interactive :output (or (and pipe :stream) interactive)
                              (cons "/usr/bin/env" command) ; lispworks wants a full path.
                          :wait wait :save-exit-status (and pipe t))
                              :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 clozure cmu ecl sbcl scl)
                         (#+(or cmu ecl scl) ext:run-program
                         (#+(or cmu ecl scl) ext:run-program
                            #+clozure ccl:run-program
                            #+clozure ccl:run-program