projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Additional niceties and middle end support for short vector SIMD packs
[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))
(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))
(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
(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)))
(alien-sap startup-info)
(alien-sap process-information))
(let ((child (slot process-information 'process-handle)))