anchor.diff:      annotations))
   
   (define-command annotate-current-url (&optional (buffer (current-buffer)))
  -  "Create/set the annotation of the URL of BUFFER."
  +  "Create a annotation of the URL of BUFFER."
     (let* ((data (first (prompt
                          :prompt "Annotation"
                          :sources (list (make-instance 'prompter:raw-source)))))
  
positive.code:                                     :url (url buffer)
                                      :data data)))
      (annotation-add annotation)))
  
  (define-command show-annotations-for-current-buffer (&optional (source-buffer (current-buffer)))
    "Create a new buffer with the annotations of the current URL of BUFFER."
  
negative.code: 
  (define-class url-annotation (annotation)
    ((url nil))
    (:export-class-name-p t)
    (:export-accessor-names-p t)
    (:accessor-name-transformer (class*:make-name-transformer name)))
  
  (define-class snippet-annotation (url-annotation)
    ((snippet nil :documentation "The snippet of text being annotated."))
    (:export-class-name-p t)
    (:export-accessor-names-p t)
    (:accessor-name-transformer (class*:make-name-transformer name)))
  