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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.