diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp index c234a9f901dc83f1a5db984ff83145e60088c62d..df1e289542162d055be8cdb1ecf5464cadb9ff36 100644 --- a/uiop/run-program.lisp +++ b/uiop/run-program.lisp @@ -475,9 +475,7 @@ It returns a process-info plist with possible keys: ,if-error-output-exists) #+lispworks `(:save-exit-status t) #+mkcl `(:directory ,(native-namestring directory)) - #+sbcl `(:search t - :if-output-does-not-exist :create - :if-error-does-not-exist :create) + #+sbcl `(:search t) #-sbcl keys #+sbcl (if directory keys (remove-plist-key :directory keys)))))) (process-info-r ()))