Changeset 11499


Ignore:
Timestamp:
Dec 9, 2008, 4:48:24 PM (11 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-events.lisp

    r11498 r11499  
    122122(defun force-async-quit (signum)
    123123  (when *quit-interrupt-hook*
    124     (funcall *quit-interrupt-hook* signum))
     124    (multiple-value-bind (req opt restp) (function-args *quit-interrupt-hook*)
     125      (if (and (= req 0) (= opt 0) (not restp))
     126        (funcall *quit-interrupt-hook*)
     127        (funcall *quit-interrupt-hook* signum))))
    125128  ;; Exit by resignalling, as per http://www.cons.org/cracauer/sigint.html
    126129  (quit #'(lambda ()
Note: See TracChangeset for help on using the changeset viewer.