定义一个数组,三行四列,输出所有元素,对数组的第四航第三列的元素赋值，同时导出异常，输出异常详细信息

;首先需要下载一个支持ansi common lisp标准的实现，比如clisp,sbcl,ccl,ecl,acl...
;定义一3*4的数组m1
(defvar m1 (make-array '(3 4)))
;输出这个数组的所有元素，因为没有赋初值，所以输出的都是0
(dotimes (x 12) (print (row-major-aref m1 x)))
;给数组m1的第4*3个元素赋值，因为不存在这个元素，所以进入调试器
(setf (aref m1 4 3) 1)