anchor.diff:  			     :object self
   			     :single-box (annotation-single-box self)
   			     :type (annotation-presentation-type self))
  -		  (call-next-method self stream)))))))
  -      #+clim-0.9 (clim-update-sensitivity stream))))
  +		  (call-next-method self stream))))))))))
   
   (defmethod display-p ((self basic-annotation)) t)
   
  
positive.code:   (with-slots (presentation) self
      (when presentation
        (erase-graphics-presentation presentation :stream STREAM)
        (setq presentation nil)
        #+clim-0.9 (clim-update-sensitivity stream))))
  
  (defmethod kill ((self basic-annotation) STREAM)
    "Erase the annotation and resign from the graph."
  
negative.code: (defmethod annotation-p ((annotation basic-annotation)) t)
  
  (defmethod editable ((object t)) nil)
  
  (defmethod annotation-presentation-type ((self basic-annotation)) 'annotation)
  (defmethod annotation-single-box ((self basic-annotation)) nil)
  