anchor.diff:          :initform "")
      (title :initarg :title
             :accessor title
  -          :type string
  -          :initform "")
  +          :type string)
      (annotation :initarg :annotation
                  :accessor annotation
  -               :type string
  -               :initform "")
  +               :type string)
      (date :initarg :date
            :accessor date
  -         :type local-time:timestamp
  -         :initform (local-time:now))
  +         :type string
  +         :initform (local-time:format-timestring nil (local-time:now))
  +         ;; We don't store the local-time:timestamp because it's too verbose
  +         ;; when serialized.
  +         :documentation "The date must be parsable by `local-time:parse-timestring'.")
      (tags :initarg :tags
            :accessor tags
            :type list
  -         :initform nil
            :documentation "A list of strings.")
  -   (shortcut :initarg :shotcut
  +   (shortcut :initarg :shortcut ; TODO: Add support for short-cuts in `parse-url'.
                :accessor shortcut
                :type string
  -             :initform ""
                :documentation "
   This allows the following URL queries from the minibuffer:
   
  
positive.code: 
  (in-package :next)
  
  (defclass bookmark-entry ()
    ((url :initarg :url
          :accessor url
  
negative.code:                       (when file
                          ;; We need to make sure current package is :next so that
                          ;; symbols a printed with consistent namespaces.
                          (let (;; (*print-case* :downcase) ; TODO: Wait until prevalence fully supports it.
                                (*package* *package*))
                            (in-package :next)
                            (s-serialization:deserialize-sexp file))))))
            (when data
  