projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.3:
[sbcl.git]
/
src
/
code
/
target-signal.lisp
diff --git
a/src/code/target-signal.lisp
b/src/code/target-signal.lisp
index
f583403
..
87f42d1
100644
(file)
--- 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)
;;;; 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
(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)
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))
(defun default-interrupt (signal)
(enable-interrupt signal :default))