anchor.diff:             (annotation (make-instance 'snippet-annotation
                                         :snippet snippet
                                         :url (url buffer)
  +                                      :page-title (title buffer)
                                         :data data
                                         :tags tags)))
         (annotation-add annotation))))
  
positive.code:   (spinneret:with-html-string
      (:p (:b "Snippet: ") (snippet annotation))
      (:p (:b "URL: ") (render-url (url annotation)))
      (:p (:b "Annotation: ") (data annotation))
      (:p (:b "Tags: ") (format nil "~{~a ~}" (tags 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)))
  