anchor.diff:              (let ((entry (make-instance 'history-entry
                                           :url (first url-visit)
                                           :implicit-visits (second url-visit))))
  -              ;; Calling (history-data *interface*) call the restore function if
  +              ;; Calling (history-data *interface*) calls the restore function if
                 ;; empty, so we need to use SLOT-VALUE here.
                 (pushnew entry (slot-value *interface* 'history-data) :test #'equals) ; TODO: Does this persist the data on each call?
                 ))))
  
positive.code:                         ;; symbols a printed with consistent namespaces.
                          (let ((*package* *package*))
                            (in-package :next)
                            (s-serialization:deserialize-sexp
                             file))))))
  
            (when data
              (log:info "Restoring global history of ~a URLs."
                        (length data))
              (setf (slot-value *interface* 'history-data) data)))
        (error (c)
          (log:warn "Failed to restore history from ~a: ~a" path c)))))
  
  
  
  
negative.code:       (fuzzy-match input history))))
  
  (defun store-sexp-history ()            ; TODO: Factor with `store-sexp-session'.
    "Store the global history to the interface `history-path'."
    (with-open-file (file (history-path *interface*)
                          :direction :output
                          :if-does-not-exist :create
  