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"
"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
(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))
(parameter-error "~S IO specifier invalid for ~S" specifier role)))
(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