Examples of Printing Arrays (original) (raw)

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>