anchor.diff:      :writer (setf c-direct-default-initargs))
      (%direct-slots 
       :reader class-direct-slots
  -    ;; Additional reader; see remark above.
  -    :reader direct-slots
       :writer (setf c-direct-slots))
      (%direct-superclasses 
       ;; This slot has no initform and no initarg, because it is set by
  
positive.code:    (%effective-slots 
      :initform '() 
      :reader class-slots
      ;; Additional reader; see remark above.
      :reader effective-slots
      :writer (setf c-slots))
     (%prototype
      :reader class-prototype
  
negative.code:    (%effective-slots 
      :initform '() 
      :reader class-slots
      :writer (setf c-slots))
     (%prototype
      :reader class-prototype
  