Changeset 13434

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:

• debug.lisp (modified) (1 diff)
• signal.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/debug.lisp

@@ -131 +131 @@
               (*debug-condition* condition)
               (level *debug-level*))
-          (clear-input)
+          (clear-input *debug-io*)
           (if (> level 0)
               (with-simple-restart (abort "Return to debug level ~D." level)

trunk/abcl/src/org/armedbear/lisp/signal.lisp

@@ -67 +67 @@
     (let ((*current-error-depth* (1+ *current-error-depth*)))
       (cond ((> *current-error-depth* *maximum-error-depth*)
-             (%format t "~%Maximum error depth exceeded (~D nested errors).~%"
+             (%format *debug-io*
+                      "~%Maximum error depth exceeded (~D nested errors).~%"
                       *current-error-depth*)
              (if (fboundp 'internal-debug)