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

Fix "unused" warning on Allegro CL

parent be7d54df
Loading
Loading
Loading
Loading
+8 −7
Original line number Diff line number Diff line
@@ -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))))