diff --git a/uiop/launch-program.lisp b/uiop/launch-program.lisp index 7f0ae5a721380d8b7934b83da92208ada7deca4e..62754456d4cb422bb51dd6f57acf9b453ea5d0dd 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))))