anchor.diff:     (%effective-slots 
       :initform '() 
       :reader class-slots
  +    ;; Additional reader; see remark above.
  +    :reader effective-slots
       :writer (setf c-slots))
      (%prototype
       :reader class-prototype
  
positive.code:    (%generic-function 
      :initform nil
      :initarg :generic-function
      :accessor method-generic-function)
     (%lambda-list 
      :initarg :lambda-list 
      :accessor method-lambda-list)
     (%specializers 
      :initarg :specializers 
      :accessor method-specializers)
     (%qualifiers 
      :initarg :qualifiers 
      :accessor 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
  
negative.code:    (%name 
      :initform nil
      :initarg :name 
      ;; There is a specified function named (SETF CLASS-NAME), but it
      ;; is not an accessor.  Instead it works by calling
      ;; REINITIALIZE-INSTANCE with the new name.
      :reader class-name
      :writer (setf c-name))
     (%direct-subclasses 
      :initform '() 
      :reader class-direct-subclasses
      :writer (setf c-direct-subclasses))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  