X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-signal.lisp;h=87f42d1bf544416bf1f29f328fc3a0dae6df448f;hb=174feb792c8082846666e1218c58d5b0ab3b85b0;hp=f5834037e6f365c41f056a1ee3f3d37f81d692e0;hpb=fe240ce504041bfb181a81cb11b7b4bba112f65f;p=sbcl.git

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index f583403..87f42d1 100644
--- a/src/code/target-signal.lisp
+++ b/src/code/target-signal.lisp
@@ -61,7 +61,7 @@
 ;;;; interface to enabling and disabling signal handlers
 
 (defun enable-interrupt (signal-designator handler)
-  (declare (type (or function (member :default :ignore)) handler))
+  (declare (type (or function fixnum (member :default :ignore)) handler))
   (without-gcing
    (let ((result (install-handler (unix-signal-number signal-designator)
 				  (case handler
@@ -72,7 +72,7 @@
 				      handler))))))
      (cond ((= result sig_dfl) :default)
 	   ((= result sig_ign) :ignore)
-	   (t (the function (sb!kernel:make-lisp-obj result)))))))
+	   (t (the (or function fixnum) (sb!kernel:make-lisp-obj result)))))))
 
 (defun default-interrupt (signal)
   (enable-interrupt signal :default))