5. excluded-domain-p および special-domain-p 関数 ypooo.hatenablog.com (defun excluded-domain-p (url) (member (root-domain url) *excluded-roots* :test #'string=)) (defun special-domain-p (url) (member (root-domain url) *special-roots* :test #'string=)) 目的: これらの関数は、与えられたURLのルートド…