Skip to content
Snippets Groups Projects
Commit 2cd6a948 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

uiop: Adapt to a change in ECL's upcoming run-program.

parent 574c35e5
No related branches found
No related tags found
No related merge requests found
......@@ -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))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment