projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.32.12: Fix slot-value on specialized parameters in SVUC methods
[sbcl.git]
/
src
/
code
/
target-signal.lisp
diff --git
a/src/code/target-signal.lisp
b/src/code/target-signal.lisp
index
b660735
..
e08e38d
100644
(file)
--- a/
src/code/target-signal.lisp
+++ b/
src/code/target-signal.lisp
@@
-210,6
+210,11
@@
(declare (ignore signal code context))
(sb!thread::run-interruption))
(declare (ignore signal code context))
(sb!thread::run-interruption))
+;;; the handler for SIGCHLD signals for RUN-PROGRAM
+(defun sigchld-handler (signal code context)
+ (declare (ignore signal code context))
+ (sb!impl::get-processes-status-changes))
+
(defun sb!kernel:signal-cold-init-or-reinit ()
#!+sb-doc
"Enable all the default signals that Lisp knows how to deal with."
(defun sb!kernel:signal-cold-init-or-reinit ()
#!+sb-doc
"Enable all the default signals that Lisp knows how to deal with."
@@
-224,6
+229,7
@@
(enable-interrupt sigsys #'sigsys-handler)
(enable-interrupt sigalrm #'sigalrm-handler)
(enable-interrupt sigpipe #'sigpipe-handler)
(enable-interrupt sigsys #'sigsys-handler)
(enable-interrupt sigalrm #'sigalrm-handler)
(enable-interrupt sigpipe #'sigpipe-handler)
+ (enable-interrupt sigchld #'sigchld-handler)
#!+hpux (ignore-interrupt sigxcpu)
(unblock-gc-signals)
(unblock-deferrable-signals)
#!+hpux (ignore-interrupt sigxcpu)
(unblock-gc-signals)
(unblock-deferrable-signals)