anchor.diff:            (mapcar #'closer-mop:slot-definition-name
                     (closer-mop:class-slots (class-of object)))))
   
  -(define-command update-hostlists ()
  +(define-command update-hostlists (&optional (blocker-mode (find-mode (current-buffer) 'blocker-mode)))
     "Forces update for all the hostlists of `blocker-mode'."
  -  (let ((blocker-mode (find-mode (current-buffer) 'blocker-mode)))
  -    (dolist (hostlist (hostlists blocker-mode))
  -      (update-hostlist-with-lock hostlist))
  -    (echo "Hostlists updated.")))
  +  (mapc (alex:rcurry #'update-hostlist-with-lock blocker-mode) (hostlists blocker-mode))
  +  (echo "Hostlists updated."))
  
positive.code:                 url-string)
        (handler-case
            (let ((hosts (dex:get url-string)))
              (when path
                (handler-case
                    (alex:write-string-into-file hosts (ensure-parent-exists path)
                                                 :if-exists :supersede
  
negative.code: If path is relative, it will be set to (xdg-data-home path).")
     (hosts
      '()
      :documentation "Deprecated, see `load-hostlist' and `blocked-hosts' instead.")
     (update-interval
      (* 60 60 24)
      :type integer
  