From 1bc19814effe6ee513e57b98a2f25ab6f3e32585 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Mon, 8 Jan 2007 03:43:32 +0000
Subject: [PATCH] r11466: 07 Jan 2007  Kevin Rosenberg <kevin@rosenberg.net>   
      * 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 <kevin@rosenberg.net>
+	* Version 1.94
+	* signals.lisp: Conditionalize Lispworks support to :unix *features*
+
 07 Jan 2007  Kevin Rosenberg <kevin@rosenberg.net>
 	* 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 <kmr@debian.org>  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.")))
-- 
GitLab