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