Commit be3a41bf authored by Robert Goldman's avatar Robert Goldman
Browse files

Fix for iss61.

parent 7b1eeff3
...@@ -167,6 +167,10 @@ argument to pass to the internal RUN-PROGRAM" ...@@ -167,6 +167,10 @@ argument to pass to the internal RUN-PROGRAM"
"Can't send ~a to ~a on this lisp implementation." "Can't send ~a to ~a on this lisp implementation."
role specifier)) role specifier))
(t (parameter-error "~S IO specifier invalid for ~S" specifier role)))) (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 (otherwise
(parameter-error "Incorrect I/O specifier ~S for ~S" (parameter-error "Incorrect I/O specifier ~S for ~S"
specifier role)))) specifier role))))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment