Loading uiop/run-program.lisp +8 −7 Original line number Diff line number Diff line Loading @@ -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)))) Loading Loading
uiop/run-program.lisp +8 −7 Original line number Diff line number Diff line Loading @@ -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)))) Loading