(defmacro do-host ((addr spec &key (family *address-family*)) &body body)
"Evaluate BODY, binding ADDR to each address denoted by SPEC."
`(dolist (,addr (host-addrs (host-parse ,spec ,family)))
(defmacro do-host ((addr spec &key (family *address-family*)) &body body)
"Evaluate BODY, binding ADDR to each address denoted by SPEC."
`(dolist (,addr (host-addrs (host-parse ,spec ,family)))