anchor.diff:             (echo "Loading global history of ~a URLs."
                    (hash-table-count history))
              (setf (slot-value *browser* 'history-data) history))
  -
             (_ (error "Expected (list version history) structure."))))
       (error (c)
         (echo-warning "Failed to restore history from ~a: ~a" (expand-path (history-path *browser*)) c))))
  
positive.code:                         (in-package :next)
                          (s-serialization:deserialize-sexp file))))))
          (match data
            ((guard (list version history)
                    (hash-table-p history))
             (unless (string= version +version+)
  
negative.code: This can be useful to, say, prefix the history with the current URL.  At the
  moment the PREFIX-URLS are inserted as is, not a `history-entry' objects since
  it would not be very useful."
    (let ((history (when (history-data *browser*)
                     (sort (alex:hash-table-values
                            (history-data *browser*))
                           (lambda (x y)
                             (> (score-history-entry x)
                                (score-history-entry y))))))
          (prefix-urls (delete-if #'uiop:emptyp prefix-urls)))
      (when prefix-urls
        (setf history (append (mapcar #'quri:url-decode prefix-urls) history)))
  