[armedbear-cvs] r13434 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Aug  2 13:57:38 2011
New Revision: 13434

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

Modified:
   trunk/abcl/src/org/armedbear/lisp/debug.lisp
   trunk/abcl/src/org/armedbear/lisp/signal.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/debug.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/debug.lisp	Tue Aug  2 09:05:24 2011	(r13433)
+++ trunk/abcl/src/org/armedbear/lisp/debug.lisp	Tue Aug  2 13:57:38 2011	(r13434)
@@ -130,7 +130,7 @@
               (*print-structure* nil)
               (*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)
                 (debug-loop))

Modified: trunk/abcl/src/org/armedbear/lisp/signal.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/signal.lisp	Tue Aug  2 09:05:24 2011	(r13433)
+++ trunk/abcl/src/org/armedbear/lisp/signal.lisp	Tue Aug  2 13:57:38 2011	(r13434)
@@ -66,7 +66,8 @@
     (signal condition)
     (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)
                  (internal-debug)