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

diff --git a/src/code/warm-mswin.lisp b/src/code/warm-mswin.lisp
index 5a973ff..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)
-  (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 nil
+                              inheritp 0 envp directory
                               (alien-sap startup-info)
                               (alien-sap process-information))
               (let ((child (slot process-information 'process-handle)))