Loading uiop/run-program.lisp +3 −3 Original line number Diff line number Diff line Loading @@ -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) Loading Loading
uiop/run-program.lisp +3 −3 Original line number Diff line number Diff line Loading @@ -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) Loading