anchor.diff:                      :initform (* 60 60 24)
                       :documentation "If URL is provided, update the list after
   this amount of seconds.")))
  +
  +@export
  +(defmethod path ((hostlist hostlist))
  +  (with-slots (path) hostlist
  +    (if (uiop:absolute-pathname-p path)
  +        path
  +        (xdg-data-home path))))
   
   @export
   (defun make-hostlist (&rest args)
  
positive.code:    (path :accessor path :initarg :path
           :initform nil
           :documentation "Where to find the list locally.
  If nil, the list won't be persisted.")
     (hosts :accessor hosts :initarg :hosts
            :initform '()
            :documentation "The list of domain name.")
  
negative.code: (defparameter *default-host-list*
    (make-instance 'hostlist
                   :url "https://raw.githubusercontent.com/StevenBlack/hosts/master/hosts"
                   :path "hostlist-stevenblack"))
  
  (define-mode blocker-mode ()
      "Enable blocking of blacklisted hosts."
  