From 1bc19814effe6ee513e57b98a2f25ab6f3e32585 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 8 Jan 2007 03:43:32 +0000 Subject: [PATCH] r11466: 07 Jan 2007 Kevin Rosenberg * Version 1.94 * signals.lisp: Conditionalize Lispworks support to :unix *features* --- ChangeLog | 4 ++++ debian/changelog | 6 ++++++ signals.lisp | 12 ++++++------ 3 files changed, 16 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index ac9dc98..a0186a4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +07 Jan 2007 Kevin Rosenberg + * Version 1.94 + * signals.lisp: Conditionalize Lispworks support to :unix *features* + 07 Jan 2007 Kevin Rosenberg * Version 1.93 * signals.lisp: Add new file for signal processing diff --git a/debian/changelog b/debian/changelog index a5095b8..90cc707 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.94-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Sun, 7 Jan 2007 20:43:12 -0700 + cl-kmrcl (1.93-1) unstable; urgency=low * New upstream diff --git a/signals.lisp b/signals.lisp index 1547aba..5aee4e1 100644 --- a/signals.lisp +++ b/signals.lisp @@ -42,7 +42,7 @@ that the signal was successfully handled." (keyword (signal-key-to-number sig))))) #+allegro (excl:add-signal-handler signum handler) #+cmu (system:enable-interrupt signum handler) - #+lispworks + #+(and lispworks unix) ;; non-documented method to get old handler, works in lispworks 5 (let ((old-handler (when (and (boundp 'system::*signal-handler-functions*) (typep system::*signal-handler-functions* 'array)) @@ -50,8 +50,8 @@ that the signal was successfully handled." (system:set-signal-handler signum handler) old-handler) #+sbcl (sb-sys:enable-interrupt signum handler) - #-(or allegro cmu lispworks sbcl) (warn "Signal setting not supported on this platform.") - )) + #-(or allegro cmu (and lispworks unix) sbcl) + (warn "Signal setting not supported on this platform."))) (defun remove-signal-handler (sig &optional old-handler) "Removes a handler from signal. Tries, when possible, to restore old-handler." @@ -64,7 +64,7 @@ that the signal was successfully handled." #+allegro (excl:remove-signal-handler signum) #+cmu (system:enable-interrupt signum (or old-handler :default)) ;; lispworks removes handler if old-handler is nil - #+lispworks (system:set-signal-handler signum old-handler) + #+(and lispworks unix) (system:set-signal-handler signum old-handler) #+sbcl (sb-sys:enable-interrupt signum (or old-handler :default)) - #-(or allegro cmu lispworks sbcl) (warn "Signal setting not supported on this platform.") - )) + #-(or allegro cmu (and lispworks unix) sbcl) + (warn "Signal setting not supported on this platform."))) -- 2.34.1