anchor.diff:    (spinneret:with-html-string
       (:p (:b "Snippet: ") (snippet annotation))
       (:p (:b "URL: ") (render-url (url annotation)))
  +    (:p (:b "Title: ") (page-title annotation))
       (:p (:b "Annotation: ") (data annotation))
       (:p (:b "Tags: ") (format nil "~{~a ~}" (tags annotation)))))
   
  
positive.code:          (annotation (make-instance 'url-annotation
                                      :url (url buffer)
                                      :data data
                                      :tags tags)))
      (annotation-add annotation)))
  
  
negative.code:   (:accessor-name-transformer (class*:make-name-transformer name)))
  
  (define-class url-annotation (annotation)
    ((url nil)
     (page-title ""))
    (:export-class-name-p t)
    (:export-accessor-names-p t)
    (:accessor-name-transformer (class*:make-name-transformer name)))
  