anchor.diff:                        (when file
                           ;; We need to make sure current package is :next so that
                           ;; symbols a printed with consistent namespaces.
  -                        (let ((*package* *package*))
  +                        (let (;; (*print-case* :downcase) ; TODO: Wait until prevalence fully supports it.
  +                              (*package* *package*))
                             (in-package :next)
                             (s-serialization:deserialize-sexp file))))))
             (when data
  
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
                 :initform "")))
  
  (defmethod object-string ((entry bookmark-entry))
    (format nil "~a~a  ~a~a"
  
negative.code: 
  (in-package :next)
  
  ;; Warning: We don't set most slots' initforms so that they are not serialized
  ;; if unset.
  (defclass bookmark-entry ()
    ((url :initarg :url
          :accessor url
  