anchor.diff:                                         :basename name)))
       (let ((old-buffers (buffer-list)))
         (setf (get-data path) (make-history-tree))
  -      (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))) (get-data path))
  -      (dolist (buffer old-buffers)
  -        (buffer-delete buffer)))))
  +      (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))))))
  
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: 
               (hash-table
                (restore-flat-history history path))))
            (_ (progn
                 (error "Expected (list version history) structure.")
                 nil)))))))
  
  
  (defun histories-list (&optional (buffer (current-buffer)))
  