Skip to content
Snippets Groups Projects
Commit 61608a27 authored by Elias Pipping's avatar Elias Pipping
Browse files

Restrict assertion to cases where it is necessary

:wait t and :*put :stream cannot be mixed on some platforms but not others.
parent f294a3f4
No related branches found
No related tags found
No related merge requests found
...@@ -424,6 +424,7 @@ It returns a process-info plist with possible keys: ...@@ -424,6 +424,7 @@ It returns a process-info plist with possible keys:
PROCESS, EXIT-CODE, INPUT-STREAM, OUTPUT-STREAM, BIDIR-STREAM, ERROR-STREAM." PROCESS, EXIT-CODE, INPUT-STREAM, OUTPUT-STREAM, BIDIR-STREAM, ERROR-STREAM."
;; NB: these implementations have Unix vs Windows set at compile-time. ;; 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)) (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))))) (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) #-(or allegro clasp clisp clozure cmu ecl (and lispworks os-unix) mkcl sbcl scl)
(progn command keys directory (progn command keys directory
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment