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