X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-signal.lisp;h=f5834037e6f365c41f056a1ee3f3d37f81d692e0;hb=98a76d4426660876dec6649b1e228d2e5b47f579;hp=9ad1f365d850d17c6d531c5e503af25779a8932c;hpb=f0d511130027c6878f08d619ccc92ef588d81223;p=sbcl.git

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index 9ad1f36..f583403 100644
--- a/src/code/target-signal.lisp
+++ b/src/code/target-signal.lisp
@@ -114,7 +114,11 @@
 #!-linux
 (define-signal-handler sigsys-handler "bad argument to a system call")
 (define-signal-handler sigpipe-handler "SIGPIPE")
-(define-signal-handler sigalrm-handler "SIGALRM")
+
+(defun sigalrm-handler (signal info context)
+  (declare (ignore signal info context))
+  (declare (type system-area-pointer context))
+  (cerror "Continue" 'sb!ext::timeout))
 
 (defun sigquit-handler (signal code context)
   (declare (ignore signal code context))