anchor.diff:  ;;; object to compute the  value.
   
   (defgeneric DESCRIPTION-CHOICES (object)
  -  (:method-combination append #-lucid :most-specific-first) ; Fixed in 1991?
  +  (:method-combination append :most-specific-first) ; Fixed in 1991?
     (:documentation "Returns an association list of descriptive string, function name."))
   
   (defun COMPUTE-DESCRIPTOR (function argument &rest arguments)
  
positive.code: (defmethod annotation-p ((annotation basic-annotation)) t)
  
  (defmethod editable ((object t)) nil)
  
  #+clim-0.9
  (defun clim-update-sensitivity (stream)
    "Fix major CLIM sins"
    ;; Try living without this function once clim 2.0 arrives.  10 apr 91 jpm.
    (let ((root (ci::output-recording-stream-output-record stream)))
      ;; Scroll bars are wrong, so update them.
      (ci::update-region stream
  		       (bounding-rectangle-width root)
  		       (bounding-rectangle-height root))
      ;; Annotations get inserted out of order, so sort the records.
      (ci::sort-coordinate-sorted-set (slot-value root 'ci::coordinate-sorted-set))))
  
  (defmethod annotation-presentation-type ((self basic-annotation)) 'annotation)
  (defmethod annotation-single-box ((self basic-annotation)) nil)
  
negative.code: 			     :object self
  			     :single-box (annotation-single-box self)
  			     :type (annotation-presentation-type self))
  		  (call-next-method self stream))))))))))
  
  (defmethod display-p ((self basic-annotation)) t)
  
  