CLCS
src report error
Index
*print-gensym* Printer Dictionary *print-lines*
Variable

*print-level*, *print-length*

Value Type

a non-negative integer, or nil.

Initial Value

nil.

Description

*print-level* controls how many levels deep a nested object will print. If it is false, then no control is exercised. Otherwise, it is an integer indicating the maximum level to be printed. An object to be printed is at level 0; its components (as of a list or vector) are at level 1; and so on. If an object to be recursively printed has components and is at a level equal to or greater than the value of *print-level*, then the object is printed as "#".

*print-length* controls how many elements at a given level are printed. If it is false, there is no limit to the number of components printed. Otherwise, it is an integer indicating the maximum number of elements of an object to be printed. If exceeded, the printer will print "..." in place of the other elements. In the case of a dotted list, if the list contains exactly as many elements as the value of *print-length*, the terminating atom is printed rather than printing "..."

*print-level* and *print-length* affect the printing of an any object printed with a list-like syntax. They do not affect the printing of symbols, strings, and bit vectors.

Examples

 (setq a '(1 (2 (3 (4 (5 (6))))))) ⇒  (1 (2 (3 (4 (5 (6))))))
 (dotimes (i 8) 
   (let ((*print-level* i)) 
     (format t "~&~D -- ~S~
 |>  0 -- #
 |>  1 -- (1 #)
 |>  2 -- (1 (2 #))
 |>  3 -- (1 (2 (3 #)))
 |>  4 -- (1 (2 (3 (4 #))))
 |>  5 -- (1 (2 (3 (4 (5 #)))))
 |>  6 -- (1 (2 (3 (4 (5 (6))))))
 |>  7 -- (1 (2 (3 (4 (5 (6))))))
⇒  NIL

 (setq a '(1 2 3 4 5 6)) ⇒  (1 2 3 4 5 6)
 (dotimes (i 7) 
   (let ((*print-length* i)) 
     (format t "~&~D -- ~S~
 |>  0 -- (...)
 |>  1 -- (1 ...)
 |>  2 -- (1 2 ...)
 |>  3 -- (1 2 3 ...)
 |>  4 -- (1 2 3 4 ...)
 |>  5 -- (1 2 3 4 5 6)
 |>  6 -- (1 2 3 4 5 6)
⇒  NIL

(dolist (level-length '((0 1) (1 1) (1 2) (1 3) (1 4) 
                        (2 1) (2 2) (2 3) (3 2) (3 3) (3 4)))
 (let ((*print-level*  (first  level-length))
       (*print-length* (second level-length)))
   (format t "~&~D ~D -- ~S~
           *print-level* *print-length* 
           '(if (member x y) (+ (car x) 3) '(foo . #(a b c d "Baz"))))))
 |>  0 1 -- #
 |>  1 1 -- (IF ...)
 |>  1 2 -- (IF # ...)
 |>  1 3 -- (IF # # ...)
 |>  1 4 -- (IF # # #)
 |>  2 1 -- (IF ...)
 |>  2 2 -- (IF (MEMBER X ...) ...)
 |>  2 3 -- (IF (MEMBER X Y) (+ # 3) ...)
 |>  3 2 -- (IF (MEMBER X ...) ...)
 |>  3 3 -- (IF (MEMBER X Y) (+ (CAR X) 3) ...)
 |>  3 4 -- (IF (MEMBER X Y) (+ (CAR X) 3) '(FOO . #(A B C D ...)))
⇒  NIL

See Also

write; prin1; print; pprint; princ

Backlinks

*print-readably*, defstruct, Examples of using the Pretty Printer, format, Multiple Possible Textual Representations, pprint-logical-block, print-object, Printer Dictionary, Printing Lists and Conses, Printing Other Arrays, Printing Other Vectors, Re-Reading Abbreviated Expressions, Symbols in the COMMON-LISP Package, Tilde W: Write, with-standard-io-syntax, write, prin1, print, pprint, princ, write-to-string, prin1-to-string, princ-to-string