Version 1.102 (other changes not in last commit)

[kmrcl.git] / signals.lisp

diff --git a/signals.lisp b/signals.lisp
index 5aee4e1fd44f2bb0facdd338cf751812a7150d3d..cd40a60aca34d800c3f7018a7b90825b47639fd9 100644 (file)
--- a/signals.lisp
+++ b/signals.lisp
@@ -1,4 +1,4 @@
-;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: modlisp -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
@@ -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.")))