X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;h=0ddd19346e4a33ad97b6ad6cb211b02b8ed1bac2;hb=82cd148d729c241e79c8df04b700beec1b7c55de;hp=eb9aa47ea8c19bed7a4b9b58eb4627fab5e0e34a;hpb=0cd4731bb43b3f79d33e85300407031f808763f0;p=sbcl.git

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index eb9aa47..0ddd193 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -690,7 +690,7 @@ status slot."
                     (if-error-exists :error)
                     status-hook
                     (external-format :default)
-                    (directory nil directory-p))
+                    directory)
   #+sb-doc
   #.(concatenate
      'string
@@ -790,7 +790,7 @@ Users Manual for details about the PROCESS structure.
          proc
          (progname (native-namestring program))
          (args (prepare-args (cons progname args)))
-         (directory (and directory-p (native-namestring directory)))
+         (directory (and directory (native-namestring directory)))
          ;; Gag.
          (cookie (list 0)))
     (unwind-protect