anchor.diff:     (update-interval :accessor update-interval :initarg :update-interval
                       :initform (* 60 60 24)
                       :documentation "If URL is provided, update the list after
  -this amount of seconds.")))
  +this amount of seconds."))
  +  (:documentation "A hostlist `blocker-mode' can use for its `hostlists' slot."))
   
   (serapeum:export-always 'path)
   (defmethod path ((hostlist hostlist))
  
positive.code:                  :path "hostlist-stevenblack"))
  
  (define-mode blocker-mode ()
      "Enable blocking of blacklisted hosts."
      ((hostlists :accessor hostlists :initarg :hostlists
                  :initform (list *default-hostlist*))
       (destructor
  
negative.code: 
  (serapeum:export-always 'make-hostlist)
  (defun make-hostlist (&rest args)
    "Return a new `hostlist'.
  See the `hostlist' class documentation."
    (apply #'make-instance 'hostlist args))
  
  (defmethod update ((hostlist hostlist))
  