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:                 (read in))))))
  
  (defun restore-sexp-history ()
    "Restore the global history session from the interface `history-path'."
    (let ((path (history-path *interface*)))
      (if (not (uiop:file-exists-p path))
          ;; TODO: Stop importing the SQLite history after 1.3.3?
  
negative.code:                         ;; symbols a printed with consistent namespaces.
                          (let ((*package* *package*))
                            (in-package :next)
                            (s-serialization:deserialize-sexp file))))))
            (when data
              (echo "Loading global history of ~a URLs."
                    (length data))
              (setf (slot-value *interface* 'history-data) data)))
        (error (c)
          (echo-warning "Failed to restore history from ~a: ~a" path c)))))
  
  
  
  