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