anchor.diff:    (make-instance 'optimize-declaration-entry
   		 :quality quality
   		 :value value))
  -  
  +
  +(defgeneric optimize-declaration-entry-p (object))
  +
  +(defmethod optimize-declaration-entry-p (object)
  +  (declare (ignore object))
  +  nil)
  +
  +(defmethod optimize-declaration-entry-p
  +    ((object optimize-declaration-entry))
  +  (declare (ignorable object))
  +  t)
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code: (defun make-declaration-declaration-entry (name)
    (make-instance 'declaration-declaration-entry
  		 :name name))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code:   (make-instance 'ignorable-declaration-entry
  		 :location (location location-entry)))
  
  (defgeneric ignorable-declaration-entry-p (object))
  
  (defmethod ignorable-declaration-entry-p (object)
    (declare (ignore object))
    nil)
  
  (defmethod ignorable-declaration-entry-p ((object ignorable-declaration-entry))
    (declare (ignorable object))
    t)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class AUTONOMOUS-DECLARATION-ENTRY.
  