r11467: ignore vars on unsupported platform
authorKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 8 Jan 2007 03:44:50 +0000 (03:44 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 8 Jan 2007 03:44:50 +0000 (03:44 +0000)
signals.lisp

index 5aee4e1..40e144b 100644 (file)
@@ -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)
+    (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)
@@ -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)
+    (declare (ignore sig handler))
+    #-(or allegro cmu (and lispworks unix) sbcl)
     (warn "Signal setting not supported on this platform.")))