anchor.diff:                              ;; twice.
                               (setf (last-access data) "")
                               (htree:add-entry history data last-access)))
  -                        old-history))))
  +                        old-history)
  +               history)))
       (with-muffled-body ("Failed to restore history from ~a: ~a"
                           (expand-path path) :condition)
         (let* ((path (if (uiop:file-exists-p (expand-path path))
  
positive.code:                    (expand-path path))
               (setf (get-data path) history)
               (when restore-buffers-p
                 (restore-buffers history)))
  
             (restore-flat-history (old-history old-path)
               (echo "Importing deprecated global history of ~a URLs from ~s."
  
negative.code:                                        :basename name)))
      (let ((old-buffers (buffer-list)))
        (setf (get-data path) (make-history-tree))
        (sera:and-let* ((new-history (restore (data-profile (current-buffer)) path
                                              :restore-buffers-p t)))
          ;; TODO: Maybe modify `history-path' of all the buffers instead of polluting history?
          (setf (get-data (history-path (current-buffer))) new-history)
          (dolist (buffer old-buffers)
            (buffer-delete buffer))))))
  