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