anchor.diff:  (defparameter *default-hostlist*
     (make-instance 'hostlist
                    :url (quri:uri "https://raw.githubusercontent.com/StevenBlack/hosts/master/hosts")
  -                 :basename "hostlist-stevenblack.txt")
  +                 :base-path #p"hostlist-stevenblack.txt")
     "Default hostlist for `blocker-mode'.")
   
   (define-mode blocker-mode ()
  
positive.code:     :type (or (cons string *) null)
      :documentation "List of hosts to ignore.
  This is useful to reference hosts manually instead of via `url'.")
     (content
      nil
      :type (or null string)
      :export nil)
     (update-interval
      (* 60 60 24)
      :type integer
      :documentation "If URL is provided, update the list after this amount of
  seconds.")
     (force-update-p
      nil
      :type boolean
      :documentation "If non-nil, the list is re-downloaded before it's (re-)read,
  ignoring the `update-interval'."))
    (:export-class-name-p t)
    (:export-accessor-names-p t)
    (:accessor-name-transformer (class*:make-name-transformer name))
  
negative.code: \(define-configuration buffer
    ((default-modes (append '(my-blocker-mode) %slot-default%))))"
    ((hostlists (list *default-hostlist*))
     (blocked-hosts
      (make-hash-table :test 'equal)
      :export nil
      :documentation "The set of host names to block.")
     (destructor
      (lambda (mode)
        (when (web-buffer-p (buffer mode))
          (hooks:remove-hook (request-resource-hook (buffer mode))
                             'request-resource-block))))
     (constructor
      (lambda (mode)
        (load-hostlists mode)
        (when (web-buffer-p (buffer mode))
          (if (request-resource-hook (buffer mode))
  