http://www.cs.utah.edu/~mflatt/past-courses/cs6510/public_html/lispm.pdf (defstruct cell (tag 'integer) (contents nil)) (make-array 1024 :element-type 'cell)うーん時間がない