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