common lisp初始化数组

1.首先构造一个一维数组：

(setf foo (make-array 4))

设置这个数组的第三个元素为（x,y,z)

(setf (aref foo 2) '(x y z))

设置第三个元素为hash 表

(print foo)
(setf (car (aref foo 2)) (make-hash-table)

初始化hash 表

 (setf (gethash 'zoink (car (aref foo 2))) 5)

(print foo)

初始化多维数组

(setf test-array-1 (make-array 10 :initial-element "ab")) 
(print test-array-1)

(setf test-array-2 (make-array '(3 5) :initial-element "cd")) 
(print test-array-2)