anchor.diff:  (defmethod render ((annotation url-annotation))
     (spinneret:with-html-string
       (: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 'snippet-annotation
                                        :snippet snippet
                                        :url (url buffer)
                                        :data data
                                        :tags tags)))
        (annotation-add annotation))))
  
negative.code:          (annotation (make-instance 'url-annotation
                                      :url (url buffer)
                                      :data data
                                      :page-title (title buffer)
                                      :tags tags)))
      (annotation-add annotation)))
  
  