Bootstrap

我的第一个lisp程序

(setf a (make-array 9))
(setf i 0)
(loop
(setf (aref a i) i)
(setf i (+ i 1))
(if (> i 8)
(return)))

数组赋值0~8

转载于:https://www.cnblogs.com/tiandsp/archive/2012/03/24/2415425.html

;