From c3e149a8536b707af6e585ca9f3a6ed5498b2652 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Sat, 7 Sep 2013 22:59:12 -0500 Subject: [PATCH] Tentative fix for run-program test failures on LispWorks. --- uiop/run-program.lisp | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp index 9f00e1c1..2986f447 100644 --- a/uiop/run-program.lisp +++ b/uiop/run-program.lisp @@ -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 -- GitLab