anchor.diff:  
   (defvar *update-lock* (bt:make-lock))
   
  -(defmethod update-hostlist-with-lock ((hostlist hostlist))
  +(defmethod update-hostlist-with-lock ((hostlist hostlist) mode)
     (run-thread "blocker-mode hostlist updater"
       (when (bt:acquire-lock *update-lock* nil)
  -       (update hostlist)
  +       (update hostlist mode)
          (bt:release-lock *update-lock*))))
   
  -(defmethod read-hostlist ((hostlist hostlist))
  +(defmethod read-hostlist ((hostlist hostlist) mode)
     "Return hostlist file as a string.
   Return nil if hostlist file is not ready yet.
   Auto-update file if older than UPDATE-INTERVAL seconds.
  
positive.code: \(define-configuration buffer
    ((default-modes (append '(my-blocker-mode) %slot-default%))))"
    ((hostlists (list *default-hostlist*))
     (destructor
      (lambda (mode)
        (when (web-buffer-p (buffer mode))
  
negative.code:                 url-string)
        (handler-case
            (let ((hosts (dex:get url-string)))
              (when (and hosts path)
                (load-hostlist hosts mode)
                (handler-case
                    (alex:write-string-into-file hosts (ensure-parent-exists path)
                                                 :if-exists :supersede
  