Changeset 13927


Ignore:
Timestamp:
05/05/12 07:02:01 (9 years ago)
Author:
Mark Evenson
Message:

Provide text of last signalled error when *CURRENT-ERROR-DEPTH* is exceeded.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/signal.lisp

    r13434 r13927  
    6868      (cond ((> *current-error-depth* *maximum-error-depth*)
    6969             (%format *debug-io*
    70                       "~%Maximum error depth exceeded (~D nested errors).~%"
    71                       *current-error-depth*)
     70                      "~%Maximum error depth exceeded (~D nested errors) with '~A'.~%"
     71                      *current-error-depth* condition)
    7272             (if (fboundp 'internal-debug)
    7373                 (internal-debug)
Note: See TracChangeset for help on using the changeset viewer.