小编N. *_*öck的帖子

以下解决方案(setf函数和函数)之间有什么区别？其中一个是优选的,还是只有两种方法可以获得相同的结果？

(defparameter *some-array* (make-array 10))

(defun (setf arr-index) (new-value index-string)
  (setf (aref *some-array* (parse-integer index-string)) new-value))

(defun arr-index-1 (index-string new-value )
  (setf (aref *some-array* (parse-integer index-string)) new-value)) 

CL-USER> *some-array*
#(0 0 0 0 0 0 0 0 0 0)
CL-USER> (setf (arr-index "2") 7)
7
CL-USER> (arr-index-1 "3" 5)
5
CL-USER> *some-array*
#(0 0 7 5 0 0 0 0 0 0)

谢谢您的回答.