projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove duplicate implementations of (setf aref/sbit/bit).
[sbcl.git]
/
src
/
code
/
warm-mswin.lisp
diff --git
a/src/code/warm-mswin.lisp
b/src/code/warm-mswin.lisp
index
5a973ff
..
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))
(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)
(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
(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)))
(alien-sap startup-info)
(alien-sap process-information))
(let ((child (slot process-information 'process-handle)))