anchor.diff:                          ;; symbols a printed with consistent namespaces.
                           (let ((*package* *package*))
                             (in-package :next)
  -                          (s-serialization:deserialize-sexp
  -                           file))))))
  -
  +                          (s-serialization:deserialize-sexp file))))))
             (when data
  -            (log:info "Restoring global history of ~a URLs."
  -                      (length data))
  +            (echo "Loading 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)))))
  +        (echo-warning "Failed to restore history from ~a: ~a" path c)))))
   
   
   
  
positive.code:             (let ((entry (make-instance 'history-entry
                                          :url (first url-visit)
                                          :implicit-visits (second url-visit))))
                ;; Calling (history-data *interface*) call 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?
                ))))
  
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
  