From 2cd6a948e16aecfef6f5164a9c72eb083408e50f Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Thu, 13 Aug 2015 14:21:43 +0200
Subject: [PATCH] uiop: Adapt to a change in ECL's upcoming run-program.

---
 uiop/run-program.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index 9bd69146c..eaeebec51 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -911,8 +911,8 @@ or an indication of failure via the EXIT-CODE of the process"
       (apply (if (or force-shell
                      #+(or clasp clisp) (or (not ignore-error-status) t)
                      #+clisp (member error-output '(:interactive :output))
-                     ;; old versions of ecl <= 15.3.7 don't support :error
-                     #+ecl (and (nth-value 1 (ignore-errors (slot-value (ext:make-external-process) 'ext::error)))
+                     ;; old versions of ecl <= 15.3.7 don't support non-trivial :error
+                     #+ecl (and (nth-value 1 (ignore-errors (slot-value (ext:make-external-process) 'ext::error-stream)))
                                 (not (member error-output '(:interactive :output nil))))
                      #+(and lispworks os-unix) (%interactivep input output error-output)
                      #+(or abcl cormanlisp gcl (and lispworks os-windows) mcl xcl) t)
@@ -924,4 +924,4 @@ or an indication of failure via the EXIT-CODE of the process"
              :if-output-exists if-output-exists
              :if-error-output-exists if-error-output-exists
              :element-type element-type :external-format external-format
-           keys))))
+             keys))))
-- 
GitLab