Loading uiop/run-program.lisp +9 −4 Original line number Original line Diff line number Diff line Loading @@ -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 Loading Loading
uiop/run-program.lisp +9 −4 Original line number Original line Diff line number Diff line Loading @@ -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 Loading