Changeset 7225

Timestamp:

Sep 15, 2007, 11:02:55 PM (12 years ago)

Author:

gb

Message:

Observe *BACKTRACE-PRINT-LEVEL*, -LENGTH* when printing break messages.

File:

• trunk/ccl/level-1/l1-readloop-lds.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-readloop-lds.lisp

@@ -410 +410 @@
         (*print-escape* t)
         (*print-gensym* t)
-        (*print-length* nil)  ; ?
-        (*print-level* nil)   ; ?
+        (*print-length* *backtrace-print-length*)  ; ?
+        (*print-level* *backtrace-print-level*)   ; ?
         (*print-lines* nil)
         (*print-miser-width* nil)
@@ -524 +524 @@
         (if *continuablep*
           (let* ((*print-circle* *error-print-circle*)
+                 (*print-level* *backtrace-print-level*)
+                 (*print-length* *backtrace-print-length*)
                                         ;(*print-pretty* nil)
                  (*print-array* nil))