Changeset 7977 for branches/1.2-devel


Ignore:
Timestamp:
Jan 1, 2008, 1:41:30 AM (13 years ago)
Author:
gb
Message:

Use *ERROR-PRINT-LENGTH*, *ERROR-PRINT-LEVEL*.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.2-devel/ccl/level-1/l1-readloop-lds.lisp

    r7788 r7977  
    461461        (*print-escape* t)
    462462        (*print-gensym* t)
    463         (*print-length* *backtrace-print-length*)  ; ?
    464         (*print-level* *backtrace-print-level*)   ; ?
     463        (*print-length* *error-print-length*)
     464        (*print-level* *error-print-level*)
    465465        (*print-lines* nil)
    466466        (*print-miser-width* nil)
     
    575575        (if *continuablep*
    576576          (let* ((*print-circle* *error-print-circle*)
    577                  (*print-level* *backtrace-print-level*)
    578                  (*print-length* *backtrace-print-length*)
     577                 (*print-level* 10)
     578                 (*print-length* 20)
    579579                                        ;(*print-pretty* nil)
    580580                 (*print-array* nil))
Note: See TracChangeset for help on using the changeset viewer.