X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-signal.lisp;h=feea1cf7faeb9ccfeda403e324764059d9285b33;hb=ad096f09fb631331f584121bfe5ee3bfc7f1f951;hp=e62f87a7a25379dd9c88639d25469db7f8d4f848;hpb=dd54f9e004a0a83d1328e94648f48dcc27e0be5b;p=sbcl.git diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp index e62f87a..feea1cf 100644 --- a/src/code/target-signal.lisp +++ b/src/code/target-signal.lisp @@ -191,6 +191,7 @@ (sb!thread:interrupt-thread (sb!thread::foreground-thread) #'interrupt-it))) +#!-sb-wtimer (defun sigalrm-handler (signal info context) (declare (ignore signal info context)) (declare (type system-area-pointer context)) @@ -227,6 +228,7 @@ (enable-interrupt sigbus #'sigbus-handler) #!-linux (enable-interrupt sigsys #'sigsys-handler) + #!-sb-wtimer (enable-interrupt sigalrm #'sigalrm-handler) #!-sb-thruption (enable-interrupt sigpipe #'sigpipe-handler)