anchor.diff:  
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  -;;; BASE-ENTRY.
  -;;; 
  -;;; A base entry is an entry that does not refer to any other entry.
  -;;; Entries that represent functions, variables, macros, and optimize
  -;;; declarations are examples of base entries. 
  -(defclass base-entry (entry)
  -  ())
  -
  -(defgeneric base-entry-p (entry))
  -
  -(defmethod base-entry-p (entry)
  -  (declare (ignore entry))
  -  nil)
  -
  -(defmethod base-entry-p ((entry base-entry))
  -  (declare (ignorable entry))
  -  t)
  -
  -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  -;;;
   ;;; NAMED-ENTRY.
   ;;; 
   ;;; A mixin class for entries having a name associated with them. 
  
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: ;;;
  ;;; Class OPTIMIZE-DECLARATION-ENTRY.
  
  (defclass optimize-declaration-entry ()
    ((%quality :initarg :quality)
     (%value :initarg :value)))
  
  