Ignore:
Timestamp:
May 19, 2009, 12:52:40 PM (10 years ago)
Author:
gz
Message:

Add ccl:*break-hook*; Also make c signal a specific condition class, ccl:interrupt-signal-condition

File:
1 edited

Legend:

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

    r11765 r12090  
    9999(defparameter *invoke-debugger-hook-on-interrupt* nil)
    100100
     101(define-condition interrupt-signal-condition (condition) ()
     102  (:report "interrupt signal"))
     103
    101104(defun force-break-in-listener (p)
    102105  (process-interrupt p
    103106                     #'(lambda ()
    104                          (let* ((condition (condition-arg "interrupt signal" nil 'simple-condition)))
     107                         (let* ((condition (make-condition 'interrupt-signal-condition)))
    105108                           (ignoring-without-interrupts
    106109                            (when *invoke-debugger-hook-on-interrupt*
Note: See TracChangeset for help on using the changeset viewer.