anchor.diff:  ;;;
   ;;; Class OPTIMIZE-DECLARATION-ENTRY.
   
  -(defclass optimize-declaration-entry (base-entry)
  +(defclass optimize-declaration-entry ()
     ((%quality :initarg :quality)
      (%value :initarg :value)))
   
  
positive.code: ;;;
  ;;; Class DECLARATION-DECLARATION-ENTRY.
  
  (defclass declaration-declaration-entry (base-entry named-entry)
    ((%name :initarg :name :reader name)))
  
  (defgeneric declaration-declaration-entry-p (object))
  
negative.code: ;;; required, an instance of this class is created, and then never
  ;;; removed.
  
  (defclass function-entry (named-entry)
    (;; The value of this slot is a CONS cell in which the CAR is always
     ;; a function.  When the function is unbound, it contains the
     ;; function in the UNBOUND slot, which signals an error.
  