Commit 61608a27 authored by Elias Pipping's avatar Elias Pipping

Restrict assertion to cases where it is necessary

:wait t and :*put :stream cannot be mixed on some platforms but not others.
parent f294a3f4
......@@ -424,6 +424,7 @@ It returns a process-info plist with possible keys:
PROCESS, EXIT-CODE, INPUT-STREAM, OUTPUT-STREAM, BIDIR-STREAM, ERROR-STREAM."
;; NB: these implementations have Unix vs Windows set at compile-time.
(declare (ignorable directory if-input-does-not-exist if-output-exists if-error-output-exists))
#-(or cmu ecl mkcl sbcl)
(assert (not (and wait (member :stream (list input output error-output)))))
#-(or allegro clasp clisp clozure cmu ecl (and lispworks os-unix) mkcl sbcl scl)
(progn command keys directory
......
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