PROSAGA码农传奇-lisp-为什么通用函数与访问函数lisp不同

<div class =“post-text”itemprop =“text”>
  
    一个
    <a href="http://www.lispworks.com/documentation/HyperSpec/Body/m_defmet.htm#defmethod" rel="nofollow noreferrer">
       <code>
 defmethod
 </code>
    </A>
     形成一个
    
      通用功能
    
     如果没有。
  
   <pre>
 <code>
 CL-USER 7 > (defclass animal ()
 ((sound
 :initarg :sound
 :initform "no sound")))
#<STANDARD-CLASS ANIMAL 40200ED09B>

</code>
 </pre>
  
    请记住：新值首先出现在
    
      SETF功能
    
    。这是由Common Lisp标准定义的。
  
   <pre>
 <code>
 CL-USER 8 > (defmethod (setf make-sound) (value (the-animal animal))
 (setf (slot-value the-animal 'sound) value))
#<STANDARD-METHOD (SETF MAKE-SOUND) NIL (T ANIMAL) 40200F098B>

CL-USER 9 > (let ((dog (make-instance 'animal)))
 (setf (make-sound dog) "bark")
 dog)
#<ANIMAL 402002187B>

CL-USER 10 > (slot-value * 'sound)
"bark"

</code>
 </pre>
  
    似乎工作。
  
  
    在
    <a href="http://www.lispworks.com/documentation/HyperSpec/Body/m_defcla.htm#defclass" rel="nofollow noreferrer">
       <code>
 defclass
 </code>
    </A>
     该
     <code>
 :accessor
 </code>
     slot选项定义它定义一个reader方法以及一个相应的方法
    
      setf方法
    
     使用正确的参数列表：首先是新值，然后是该类的实例。
  
</DIV>