我的第一个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