run-program: Add support for :environment on WIN32.

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

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