Changeset 12820

Timestamp:

07/22/10 18:21:34 (13 years ago)

Author:

ehuelsmann

Message:

Backport part of r12814 which applies to r12809.

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

File:

• branches/0.21.x/abcl/src/org/armedbear/lisp/debug.lisp (modified) (1 diff)

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

@@ -86 +86 @@
     (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*