X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-signal.lisp;h=4d3e40e32cbd884929d09de5348d180f0c7b82c5;hb=d83c8a160b4215cfc5379dd4fb70c9589a428ae0;hp=97bc95ef6114f96093c5cb0ecd73ba25c3ed46eb;hpb=c0d30332957c6f0cab8c0a3670f2903546fc0ad8;p=sbcl.git

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index 97bc95e..4d3e40e 100644
--- a/src/code/target-signal.lisp
+++ b/src/code/target-signal.lisp
@@ -121,7 +121,7 @@
 (defun sigalrm-handler (signal info context)
   (declare (ignore signal info context))
   (declare (type system-area-pointer context))
-  (cerror "Continue" 'sb!ext::timeout))
+  (sb!impl::run-expired-timers))
 
 (defun sigquit-handler (signal code context)
   (declare (ignore signal code context))