From be3a41bf2770945171136e219f6f6027a22a15de Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@sift.net> Date: Thu, 18 Mar 2021 16:08:53 -0500 Subject: [PATCH] Fix for iss61. --- uiop/launch-program.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/uiop/launch-program.lisp b/uiop/launch-program.lisp index 7f0ae5a72..62754456d 100644 --- a/uiop/launch-program.lisp +++ b/uiop/launch-program.lisp @@ -167,6 +167,10 @@ argument to pass to the internal RUN-PROGRAM" "Can't send ~a to ~a on this lisp implementation." role specifier)) (t (parameter-error "~S IO specifier invalid for ~S" specifier role)))) + ((eql t) + (cond ((eq role :error-output) *error-output*) + ((eq role :output) *standard-output*) + ((eq role :input) *standard-input*))) (otherwise (parameter-error "Incorrect I/O specifier ~S for ~S" specifier role)))) -- GitLab