anchor.diff:     (%name 
       :initform nil
       :initarg :name 
  -    ;; Make this just a :reader, because the AMOP says that the
  -    ;; function (SETF CLASS-NAME) does not just set the name of the
  -    ;; class.
  +    ;; 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))
  -   (%direct-methods 
  -    :initform '() 
  -    :reader class-direct-methods
  -    :writer (setf c-direct-methods))))
  +    :writer (setf c-direct-subclasses))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code: (defclass specializer (metaobject)
    ((%direct-generic-functions
      :initform '()
      :accessor specializer-direct-generic-functions)
     (%direct-methods
      :initform '()
      :accessor specializer-direct-methods)))
  
  (defclass eql-specializer (specializer)
    ((%object 
  
negative.code:    (%effective-slots 
      :initform '() 
      :reader class-slots
      ;; Additional reader; see remark above.
      :reader effective-slots
      :writer (setf c-slots))
     (%prototype
      :reader class-prototype
  