X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fwarm-mswin.lisp;h=9bf586be34b675bbc8a56ab08b7154d1c4c10a6a;hb=829ced3e78a23ba153ba4db64e6ea6984c2313b6;hp=5a973ff7dad1370029116e90293a95160b1cd1d5;hpb=935edfc8f060a4fda050a66fcb7e631a81c490c6;p=sbcl.git

diff --git a/src/code/warm-mswin.lisp b/src/code/warm-mswin.lisp
index 5a973ff..9bf586b 100644
--- 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)))