anchor.diff:    (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.
  
positive.code:   (make-instance 'optimize-declaration-entry
  		 :quality quality
  		 :value value))
    
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: (defun make-declaration-declaration-entry (name)
    (make-instance 'declaration-declaration-entry
  		 :name name))
  
  (defgeneric declaration-declaration-entry-p (object))
  
  (defmethod declaration-declaration-entry-p (object)
    (declare (ignore object))
    nil)
  
  (defmethod declaration-declaration-entry-p
      ((object declaration-declaration-entry))
    (declare (ignorable object))
    t)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  