Permalink
Browse files

Fixed bug in previous process-exit-code stuff.

Use internal (setf process-%exit-code), not process-exit-code.
  • Loading branch information...
1 parent 9aafc91 commit 06aaee11d999daffe76aa9ab85eb623c4def89dd @akovalenko committed Jan 21, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/code/run-program.lisp
@@ -295,7 +295,7 @@ PROCESS."
((and (eql pid (process-pid process))
(= signal sb-unix:sigcont))
(setf (process-%status process) :running)
- (setf (process-exit-code process) nil)
+ (setf (process-%exit-code process) nil)
(when (process-status-hook process)
(funcall (process-status-hook process) process))
t)
@@ -348,7 +348,7 @@ status slot."
(waitpid (process-pid proc) t t)
(when pid
(setf (process-%status proc) what)
- (setf (process-exit-code proc) code)
+ (setf (process-%exit-code proc) code)
(setf (process-core-dumped proc) core)
(when (process-status-hook proc)
(push proc exited))
@@ -361,7 +361,7 @@ status slot."
(sb-win32::get-exit-code-process pid)
(when (and (plusp ok) (/= code 259))
(setf (process-%status proc) :exited
- (process-exit-code proc) code)
+ (process-%exit-code proc) code)
(when (process-status-hook proc)
(push proc exited))
t)))))

0 comments on commit 06aaee1

Please sign in to comment.