Changeset 7225
- Timestamp:
- Sep 15, 2007, 11:02:55 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/level-1/l1-readloop-lds.lisp
r6943 r7225 410 410 (*print-escape* t) 411 411 (*print-gensym* t) 412 (*print-length* nil) ; ?413 (*print-level* nil) ; ?412 (*print-length* *backtrace-print-length*) ; ? 413 (*print-level* *backtrace-print-level*) ; ? 414 414 (*print-lines* nil) 415 415 (*print-miser-width* nil) … … 524 524 (if *continuablep* 525 525 (let* ((*print-circle* *error-print-circle*) 526 (*print-level* *backtrace-print-level*) 527 (*print-length* *backtrace-print-length*) 526 528 ;(*print-pretty* nil) 527 529 (*print-array* nil))
Note: See TracChangeset
for help on using the changeset viewer.