Changeset 13434 for trunk/abcl/src/org


Ignore:
Timestamp:
08/02/11 20:57:38 (10 years ago)
Author:
ehuelsmann
Message:

Correct stream being modified to be *DEBUG-IO* bound streams.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r12814 r13434  
    131131              (*debug-condition* condition)
    132132              (level *debug-level*))
    133           (clear-input)
     133          (clear-input *debug-io*)
    134134          (if (> level 0)
    135135              (with-simple-restart (abort "Return to debug level ~D." level)
  • trunk/abcl/src/org/armedbear/lisp/signal.lisp

    r12314 r13434  
    6767    (let ((*current-error-depth* (1+ *current-error-depth*)))
    6868      (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).~%"
    7071                      *current-error-depth*)
    7172             (if (fboundp 'internal-debug)
Note: See TracChangeset for help on using the changeset viewer.