anchor.diff:     (%generic-function 
       :initform nil
       :initarg :generic-function
  -    :accessor method-generic-function)
  +    :reader method-generic-function
  +    :writer (setf m-generic-function))
      (%lambda-list 
       :initarg :lambda-list 
  -    :accessor method-lambda-list)
  +    :reader method-lambda-list)
      (%specializers 
       :initarg :specializers 
  -    :accessor method-specializers)
  +    :reader method-specializers)
      (%qualifiers 
       :initarg :qualifiers 
  -    :accessor method-qualifiers)
  +    :reader method-qualifiers)
      ;; This slot is not mentioned in the section "Readers for Method
      ;; Metaobjects" in the AMOP.  However, it is mentioned in the
      ;; section "Initialization of Method Metaobjects", so we include it
  
positive.code:    (%effective-slots 
      :initform '() 
      :reader class-slots
      :writer (setf c-slots))
     (%prototype
      :reader class-prototype
  
negative.code:    (%effective-slots 
      :initform '() 
      :reader class-slots
      ;; Additional reader; see remark above.
      :reader effective-slots
      :writer (setf c-slots))
     (%prototype
      :reader class-prototype
  