Changeset 11499 for branches/working-0711/ccl/level-1/l1-events.lisp

Timestamp:

Dec 9, 2008, 4:48:24 PM (12 years ago)

Author:

gz

Message:

Make the signum arg to *quit-interrupt-hook* optional

File:

• branches/working-0711/ccl/level-1/l1-events.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-events.lisp

@@ -122 +122 @@
 (defun force-async-quit (signum)
   (when *quit-interrupt-hook*
-    (funcall *quit-interrupt-hook* signum))
+    (multiple-value-bind (req opt restp) (function-args *quit-interrupt-hook*)
+      (if (and (= req 0) (= opt 0) (not restp))
+        (funcall *quit-interrupt-hook*)
+        (funcall *quit-interrupt-hook* signum))))
   ;; Exit by resignalling, as per http://www.cons.org/cracauer/sigint.html
   (quit #'(lambda ()