Changeset 13434
- Timestamp:
- 08/02/11 20:57:38 (9 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/debug.lisp
r12814 r13434 131 131 (*debug-condition* condition) 132 132 (level *debug-level*)) 133 (clear-input )133 (clear-input *debug-io*) 134 134 (if (> level 0) 135 135 (with-simple-restart (abort "Return to debug level ~D." level) -
trunk/abcl/src/org/armedbear/lisp/signal.lisp
r12314 r13434 67 67 (let ((*current-error-depth* (1+ *current-error-depth*))) 68 68 (cond ((> *current-error-depth* *maximum-error-depth*) 69 (%format t "~%Maximum error depth exceeded (~D nested errors).~%" 69 (%format *debug-io* 70 "~%Maximum error depth exceeded (~D nested errors).~%" 70 71 *current-error-depth*) 71 72 (if (fboundp 'internal-debug)
Note: See TracChangeset
for help on using the changeset viewer.