Commit be7d54df authored by Elias Pipping's avatar Elias Pipping
Browse files

Bug fix: Repair :output :interactive on LispWorks

parent 04f3d537
...@@ -392,10 +392,10 @@ argument to pass to the internal RUN-PROGRAM" ...@@ -392,10 +392,10 @@ argument to pass to the internal RUN-PROGRAM"
(stream specifier) (stream specifier)
((eql :stream) :stream) ((eql :stream) :stream)
((eql :interactive) ((eql :interactive)
#+allegro nil #+(or allegro lispworks) nil
#+clisp :terminal #+clisp :terminal
#+(or abcl clozure cmucl ecl mkcl sbcl scl) t #+(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 (not-implemented-error :interactive-output
"On this lisp implementation, cannot interpret ~a value of ~a" "On this lisp implementation, cannot interpret ~a value of ~a"
specifier role)) 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