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