Changeset 7225


Ignore:
Timestamp:
Sep 15, 2007, 11:02:55 PM (12 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-readloop-lds.lisp

    r6943 r7225  
    410410        (*print-escape* t)
    411411        (*print-gensym* t)
    412         (*print-length* nil)  ; ?
    413         (*print-level* nil)   ; ?
     412        (*print-length* *backtrace-print-length*)  ; ?
     413        (*print-level* *backtrace-print-level*)   ; ?
    414414        (*print-lines* nil)
    415415        (*print-miser-width* nil)
     
    524524        (if *continuablep*
    525525          (let* ((*print-circle* *error-print-circle*)
     526                 (*print-level* *backtrace-print-level*)
     527                 (*print-length* *backtrace-print-length*)
    526528                                        ;(*print-pretty* nil)
    527529                 (*print-array* nil))
Note: See TracChangeset for help on using the changeset viewer.