X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fwarm-mswin.lisp;h=ab43e3169a9ce6da263206e15c89ccaeff8000d8;hb=0f3a5f2e8886d18d0b4f6485c38a42be629422ae;hp=9bf586be34b675bbc8a56ab08b7154d1c4c10a6a;hpb=606dfed39b56dc435ff40e7baf47a455019aae49;p=sbcl.git

diff --git a/src/code/warm-mswin.lisp b/src/code/warm-mswin.lisp
index 9bf586b..ab43e31 100644
--- a/src/code/warm-mswin.lisp
+++ b/src/code/warm-mswin.lisp
@@ -67,8 +67,8 @@
 (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 pwd)
-  (declare (ignorable envp))
+(defun mswin-spawn (program argv stdin stdout stderr searchp envp waitp
+                    directory)
   (let ((std-handles (multiple-value-list (get-std-handles)))
         (inheritp nil))
     (flet ((maybe-std-handle (arg)
@@ -93,7 +93,7 @@
           (if (create-process (if searchp nil program)
                               argv
                               nil nil
-                              inheritp 0 nil pwd
+                              inheritp 0 envp directory
                               (alien-sap startup-info)
                               (alien-sap process-information))
               (let ((child (slot process-information 'process-handle)))