Handle run-program with :directory nil.

[sbcl.git] / src / code / run-program.lisp

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index eb9aa47..0ddd193 100644 (file)
--- 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