diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp index 9cf4f52dda35614e25fe8d775191685a894e9fdf..ef7b13e1af591b39c210a93b5426aa39860fbc65 100644 --- a/uiop/run-program.lisp +++ b/uiop/run-program.lisp @@ -896,6 +896,7 @@ or an indication of failure via the EXIT-CODE of the process" ;; don't override user's specified preference. [2015/06/29:rpg] (when (stringp command) (unless force-shell-suppliedp + #-(and sbcl os-windows) ;; force-shell t isn't working properly on windows as of sbcl 1.2.16 (setf force-shell t))) (flet ((default (x xp output) (cond (xp x) ((eq output :interactive) :interactive)))) (apply (if (or force-shell