projects
/
kmrcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
1bc1981
)
r11467: ignore vars on unsupported platform
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 8 Jan 2007 03:44:50 +0000
(
03:44
+0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 8 Jan 2007 03:44:50 +0000
(
03:44
+0000)
signals.lisp
patch
|
blob
|
history
diff --git
a/signals.lisp
b/signals.lisp
index 5aee4e1fd44f2bb0facdd338cf751812a7150d3d..40e144ba78a5568bf25e701529c5ab57b3e7dfa0 100644
(file)
--- a/
signals.lisp
+++ b/
signals.lisp
@@
-51,6
+51,8
@@
that the signal was successfully handled."
old-handler)
#+sbcl (sb-sys:enable-interrupt signum handler)
#-(or allegro cmu (and lispworks unix) sbcl)
old-handler)
#+sbcl (sb-sys:enable-interrupt signum handler)
#-(or allegro cmu (and lispworks unix) sbcl)
+ (declare (ignore sig handler))
+ #-(or allegro cmu (and lispworks unix) sbcl)
(warn "Signal setting not supported on this platform.")))
(defun remove-signal-handler (sig &optional old-handler)
(warn "Signal setting not supported on this platform.")))
(defun remove-signal-handler (sig &optional old-handler)
@@
-67,4
+69,6
@@
that the signal was successfully handled."
#+(and lispworks unix) (system:set-signal-handler signum old-handler)
#+sbcl (sb-sys:enable-interrupt signum (or old-handler :default))
#-(or allegro cmu (and lispworks unix) sbcl)
#+(and lispworks unix) (system:set-signal-handler signum old-handler)
#+sbcl (sb-sys:enable-interrupt signum (or old-handler :default))
#-(or allegro cmu (and lispworks unix) sbcl)
+ (declare (ignore sig handler))
+ #-(or allegro cmu (and lispworks unix) sbcl)
(warn "Signal setting not supported on this platform.")))
(warn "Signal setting not supported on this platform.")))