diff --git a/uiop/launch-program.lisp b/uiop/launch-program.lisp index dbe8c66bf6be3112db60c400fd76b64d70e3d001..c03e1f2e4d5b54ce47a35511aa8824bfd8936ed0 100644 --- a/uiop/launch-program.lisp +++ b/uiop/launch-program.lisp @@ -621,7 +621,7 @@ LAUNCH-PROGRAM returns a PROCESS-INFO object." (prop 'process pid-or-nil) (when (eq input :stream) (prop 'input-stream in-or-io)) (when (eq output :stream) (prop 'output-stream out-or-err)) - (when (eq error-output :stream) (prop 'error-stream err-or-pid))) + (when (eq error-output :stream) (prop 'error-output-stream err-or-pid))) (t (prop 'process err-or-pid) (ecase (+ (if (eq input :stream) 1 0) (if (eq output :stream) 2 0)) @@ -630,7 +630,7 @@ LAUNCH-PROGRAM returns a PROCESS-INFO object." (2 (prop 'output-stream in-or-io)) (3 (prop 'bidir-stream in-or-io))) (when (eq error-output :stream) - (prop 'error-stream out-or-err)))) + (prop 'error-output-stream out-or-err)))) #+(or abcl clozure cmucl sbcl scl) (progn (prop 'process process) @@ -674,7 +674,7 @@ LAUNCH-PROGRAM returns a PROCESS-INFO object." (prop (ecase mode (1 'input-stream) (2 'output-stream) (3 'bidir-stream)) io-or-pid)) (when (eq error-output :stream) - (prop 'error-stream err-or-nil))) + (prop 'error-output-stream err-or-nil))) ;; Prior to Lispworks 7, this returned (pid); now it ;; returns (io err pid) of which we keep io. (t (prop 'process io-or-pid)))))