Commit fd28c3c7 authored by Robert Goldman's avatar Robert Goldman
Browse files

T for output unsupported on LispWorks.

On guidance from LispWorks, have made T an unsupported option for `:output` and `:error-output` on LW.
parent be3a41bf
......@@ -212,14 +212,30 @@
(define-test
"launch-program :output t"
(catch 'unimplemented
(handler-bind
(
#+lispworks
(not-implemented-error
#'(lambda (x)
(format t "~&This behavior is expected to be unimplemented on this lisp.~%")
(throw 'unimplemented t))))
(launch-program (list "echo" "echoing output")
:output t))
:output t))))
(define-test
"launch-program :error-output t"
(catch 'unimplemented
(handler-bind
(
#+lispworks
(not-implemented-error
#'(lambda (x)
(format t "~&This behavior is expected to be unimplemented on this lisp.~%")
(throw 'unimplemented t))))
(uiop:wait-process
(launch-program (format nil "./exiter.sh 0 ~a" output-string)
:error-output t)))
:error-output t)))))
(define-test
":output <file> (file e.)"
......
......@@ -168,8 +168,13 @@ argument to pass to the internal RUN-PROGRAM"
role specifier))
(t (parameter-error "~S IO specifier invalid for ~S" specifier role))))
((eql t)
#+lispworks
(not-implemented-error :interactive-output
"On this lisp implementation, cannot interpret ~a value of ~a"
specifier role)
#-lispworks
(cond ((eq role :error-output) *error-output*)
((eq role :output) *standard-output*)
((eq role :output) #+lispworks *terminal-io* #-lispworks *standard-output*)
((eq role :input) *standard-input*)))
(otherwise
(parameter-error "Incorrect I/O specifier ~S for ~S"
......
Supports Markdown
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