摘要：(defun re(n) (setf len (length n)) (if (oddp len) (setf mid (/ (1+ len) 2)) (setf mid (/ len 2))) (or (and (oddp len) (equal (subseq n 0 (1- mid)) (reverse (subseq n mid)))) (and (evenp len) (equal (subseq n 0 mid) (reverse (subseq n mid)))))) 阅读全文

摘要：(setf a (make-array 9))(setf i 0)(loop (setf (aref a i) i) (setf i (+ i 1)) (if (> i 8) (return)))数组赋值0~8 阅读全文