Commit 30f52c94 authored by Elias Pipping's avatar Elias Pipping
Browse files

Fix "unused" warning on Allegro CL

parent be7d54df
...@@ -400,13 +400,14 @@ argument to pass to the internal RUN-PROGRAM" ...@@ -400,13 +400,14 @@ argument to pass to the internal RUN-PROGRAM"
"On this lisp implementation, cannot interpret ~a value of ~a" "On this lisp implementation, cannot interpret ~a value of ~a"
specifier role)) specifier role))
((eql :output) ((eql :output)
(if (eq role :error-output) (cond ((eq role :error-output)
(or #+(or abcl allegro clozure cmucl ecl lispworks mkcl sbcl scl)
#+(or abcl allegro clozure cmucl ecl lispworks mkcl sbcl scl) :output :output
(not-implemented-error :error-output-redirect #-(or abcl allegro clozure cmucl ecl lispworks mkcl sbcl scl)
"Can't send ~a to ~a on this lisp implementation." (not-implemented-error :error-output-redirect
role specifier)) "Can't send ~a to ~a on this lisp implementation."
(parameter-error "~S IO specifier invalid for ~S" specifier role))) role specifier))
(t (parameter-error "~S IO specifier invalid for ~S" specifier role))))
(otherwise (otherwise
(parameter-error "Incorrect I/O specifier ~S for ~S" (parameter-error "Incorrect I/O specifier ~S for ~S"
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