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
Loading
Loading
Loading
Loading
+3 −3
Original line number Diff line number Diff line
@@ -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)