anchor.diff:        (fuzzy-match input history))))
   
   (defun store-sexp-history ()            ; TODO: Factor with `store-sexp-session'.
  -  "Store the global history to the last interface `history-path'."
  +  "Store the global history to the interface `history-path'."
     (with-open-file (file (history-path *interface*)
                           :direction :output
                           :if-does-not-exist :create
  
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:                 (read in))))))
  
  (defun restore-sexp-history ()
    "Restore the global history 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?
  