Add :directory argument to sb-ext:run-program.

[sbcl.git] / src / code / warm-mswin.lisp

diff --git a/src/code/warm-mswin.lisp b/src/code/warm-mswin.lisp
index 5a973ff..9bf586b 100644 (file)
--- a/src/code/warm-mswin.lisp
+++ b/src/code/warm-mswin.lisp
@@ -67,7 +67,7 @@
 (define-alien-routine ("GetExitCodeThread" get-exit-code-thread) int
   (handle handle) (exit-code dword :out))
 
-(defun mswin-spawn (program argv stdin stdout stderr searchp envp waitp)
+(defun mswin-spawn (program argv stdin stdout stderr searchp envp waitp pwd)
   (declare (ignorable envp))
   (let ((std-handles (multiple-value-list (get-std-handles)))
         (inheritp nil))
@@ -93,7 +93,7 @@
           (if (create-process (if searchp nil program)
                               argv
                               nil nil
-                              inheritp 0 nil nil
+                              inheritp 0 nil pwd
                               (alien-sap startup-info)
                               (alien-sap process-information))
               (let ((child (slot process-information 'process-handle)))