anchor.diff:                             (setf entry b)))
                          (bookmarks-data *interface*)))
         (unless entry
  -        (make-instance 'bookmark-entry
  -               :url url))
  +        (setf entry (make-instance 'bookmark-entry
  +                                   :url url)))
         (unless (str:emptyp title)
           (setf (title entry) title))
  -      (when (slot-boundp entry 'tags)
  -        (setf tags (delete-duplicates (append (tags entry) tags)
  -                                      :test #'string=)))
  +      (setf tags (delete-duplicates (append (tags entry) tags)
  +                                    :test #'string=))
         (setf (tags entry) (sort tags #'string<))
         (push entry (bookmarks-data *interface*)))))
   
  
positive.code: - SHORTCUT TERM: Use SEARCH-URL to search TERM.  If SEARCH-URL is empty, fallback on other search engines.")
     (search-url :initarg :search-url
                 :accessor search-url
                 :type string)))
  
  (defmethod object-string ((entry bookmark-entry))
    (format nil "~a~a  ~a~a"
  
negative.code:         :initform "")
     (title :initarg :title
            :accessor title
            :type string
            :initform "")
     (annotation :initarg :annotation
                 :accessor annotation
                 :type string
                 :initform "")
     (date :initarg :date
           :accessor date
           :type local-time:timestamp
           :initform (local-time:now))
     (tags :initarg :tags
           :accessor tags
           :type list
           :initform nil
           :documentation "A list of strings.")
     (shortcut :initarg :shortcut ; TODO: Add support for shortcuts in `parse-url'.
               :accessor shortcut
               :type string
               :initform ""
               :documentation "
  This allows the following URL queries from the minibuffer:
  
  