|
ANSI Common Lisp 22 Printer 22.1 The Lisp Printer 22.1.3 Default Print-Object Methods
22.1.3.9 Examples of Printing Arrays
(let ((a (make-array '(3 3)))
(*print-pretty* t)
(*print-array* t))
(dotimes (i 3) (dotimes (j 3) (setf (aref a i j) (format nil "<~D,~D>" i j))))
(print a)
(print (make-array 9 :displaced-to a)))
#2A(("<0,0>" "<0,1>" "<0,2>")
("<1,0>" "<1,1>" "<1,2>")
("<2,0>" "<2,1>" "<2,2>"))
#("<0,0>" "<0,1>" "<0,2>" "<1,0>" "<1,1>" "<1,2>" "<2,0>" "<2,1>" "<2,2>")
#<ARRAY 9 indirect 36363476>
|