Changeset 12222


Ignore:
Timestamp:
Jun 7, 2009, 7:39:08 PM (10 years ago)
Author:
gz
Message:

Merge r11499: make the signum arg to *quit-interrupt-hook* optional

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-events.lisp

    r12221 r12222  
    128128(defun force-async-quit (signum)
    129129  (when *quit-interrupt-hook*
    130     (funcall *quit-interrupt-hook* signum))
     130    (multiple-value-bind (req opt restp) (function-args *quit-interrupt-hook*)
     131      (if (and (= req 0) (= opt 0) (not restp))
     132        (funcall *quit-interrupt-hook*)
     133        (funcall *quit-interrupt-hook* signum))))
    131134  ;; Exit by resignalling, as per http://www.cons.org/cracauer/sigint.html
    132135  (quit #'(lambda ()
Note: See TracChangeset for help on using the changeset viewer.