Ignore:
Timestamp:
Feb 1, 2008, 8:30:46 AM (12 years ago)
Author:
gb
Message:

Reset *error-reentry-count* a lot earlier (before signal, certainly).

File:
1 edited

Legend:

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

    r6936 r8384  
    123123                nil))))
    124124
     125
    125126(defun %error (condition args error-pointer)
     127  (setq *error-reentry-count* 0)
    126128  (setq condition (condition-arg condition args 'simple-error))
    127129  (signal condition)
Note: See TracChangeset for help on using the changeset viewer.