From d557c191f92e4e5a3cd4ca3fdd14a78444002c64 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 8 Jan 2007 03:44:50 +0000 Subject: [PATCH] r11467: ignore vars on unsupported platform --- signals.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/signals.lisp b/signals.lisp index 5aee4e1..40e144b 100644 --- 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) + (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."))) -- 2.34.1