9 lines
191 B
Plaintext
9 lines
191 B
Plaintext
;;; woz 4/27/87 test for CMLARRAY AR 8108
|
|
(do-test "array printing observes *print-length*"
|
|
(let ((*print-length* 2)
|
|
(*print-array* t))
|
|
(print #*111001110010011101))
|
|
)
|
|
stop
|
|
|