From 4d5bedca7d4f91dd6e99a88c6e3498897e30a570 Mon Sep 17 00:00:00 2001
From: Elias Pipping <elias.pipping@fu-berlin.de>
Date: Wed, 17 Aug 2016 16:55:44 +0200
Subject: [PATCH] Do not pass unnecessary keywords to SBCL

SBCL's run-program does not currently have an :if-output-does-not-exist
keyword (as of 1.3.8). It seems it never did, either, as suggested by the
following (superfluous?) feature request

  https://bugs.launchpad.net/sbcl/+bug/789817

The same applies to :if-error-does-not-exist
---
 uiop/run-program.lisp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index c234a9f9..df1e2895 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 ()))
-- 
GitLab