Commit 077a4616 authored by Robert Goldman's avatar Robert Goldman

Merge branch 'bug/normalize-io-specifier-fixes' into 'master'

Bug/normalize io specifier fixes

This makes tests pass again on Allegro CL and LispWorks after !49.

See merge request !50
parents 04f3d537 30f52c94
......@@ -392,21 +392,22 @@ argument to pass to the internal RUN-PROGRAM"
(stream specifier)
((eql :stream) :stream)
((eql :interactive)
#+allegro nil
#+(or allegro lispworks) nil
#+clisp :terminal
#+(or abcl clozure cmucl ecl mkcl sbcl scl) t
#-(or abcl clozure cmucl ecl mkcl sbcl scl allegro clisp)
#-(or abcl clozure cmucl ecl mkcl sbcl scl allegro lispworks clisp)
(not-implemented-error :interactive-output
"On this lisp implementation, cannot interpret ~a value of ~a"
specifier role))
((eql :output)
(if (eq role :error-output)
(or
#+(or abcl allegro clozure cmucl ecl lispworks mkcl sbcl scl) :output
(not-implemented-error :error-output-redirect
"Can't send ~a to ~a on this lisp implementation."
role specifier))
(parameter-error "~S IO specifier invalid for ~S" specifier role)))
(cond ((eq role :error-output)
#+(or abcl allegro clozure cmucl ecl lispworks mkcl sbcl scl)
:output
#-(or abcl allegro clozure cmucl ecl lispworks mkcl sbcl scl)
(not-implemented-error :error-output-redirect
"Can't send ~a to ~a on this lisp implementation."
role specifier))
(t (parameter-error "~S IO specifier invalid for ~S" specifier role))))
(otherwise
(parameter-error "Incorrect I/O specifier ~S for ~S"
specifier role))))
......
Markdown is supported
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