anchor.diff:  
   (in-package :nyxt)
   
  -(define-class internet-reference ()
  +(define-class url-reference ()
     ((url nil))
     (:export-class-name-p t)
     (:export-accessor-names-p t)
  
positive.code: (defmethod store ((profile data-profile) (path annotations-data-path) &key &allow-other-keys)
    "Store the annotations to the buffer `annotations-path'."
    (with-data-file (file path :direction :output)
      (format file "Hello world!"))
    t)
  
  (defun annotation-add (url &key date title tags)
    (with-data-access (bookmarks (annotations-path (current-buffer)))
      (print "noop")))
  
negative.code:   ((reference
      nil
      :documentation "The object the annotation is pointing to.")
     (text "" :export nil)
     (tags
      '()
      :type list-of-strings)
  