From 61608a271ca1b6e66649d7e856675dcedd2fa9e3 Mon Sep 17 00:00:00 2001 From: Elias Pipping <elias.pipping@fu-berlin.de> Date: Sun, 7 Aug 2016 20:34:50 +0200 Subject: [PATCH] Restrict assertion to cases where it is necessary :wait t and :*put :stream cannot be mixed on some platforms but not others. --- uiop/run-program.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp index 68e9fb068..9f08220b9 100644 --- a/uiop/run-program.lisp +++ b/uiop/run-program.lisp @@ -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 -- GitLab