From 67a0609196bd98befa10a5273ca62118c227bc5f Mon Sep 17 00:00:00 2001 From: Martin Simmons <martin@lispworks.com> Date: Thu, 8 Oct 2020 18:30:10 +0100 Subject: [PATCH] Set the correct slot name error-output-stream, not error-stream. --- uiop/launch-program.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/uiop/launch-program.lisp b/uiop/launch-program.lisp index dbe8c66b..c03e1f2e 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))))) -- GitLab