[armedbear-cvs] r12820 - branches/0.21.x/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Jul 22 14:21:34 2010
New Revision: 12820

Log:
Backport part of r12814 which applies to r12809.

Note: the remainder of the r12814 relates to code not in the branch.


Modified:
   branches/0.21.x/abcl/src/org/armedbear/lisp/debug.lisp

Modified: branches/0.21.x/abcl/src/org/armedbear/lisp/debug.lisp
==============================================================================
--- branches/0.21.x/abcl/src/org/armedbear/lisp/debug.lisp	(original)
+++ branches/0.21.x/abcl/src/org/armedbear/lisp/debug.lisp	Thu Jul 22 14:21:34 2010
@@ -85,7 +85,8 @@
   (when condition
     (fresh-line *debug-io*)
     (with-standard-io-syntax
-      (let ((*print-structure* nil))
+      (let ((*print-structure* nil)
+	    (*print-readably* nil))
         (when (and *load-truename* (streamp *load-stream*))
           (simple-format *debug-io*
                          "Error loading ~A at line ~D (offset ~D)~%"