nconc (list k v)))
,@',zf)))))))
+(export 'map-host-addresses)
(defun map-host-addresses (func addr &key (family *address-family*))
"Call FUNC for each address denoted by ADDR (a `host-parse' address)."
(dolist (a (host-addrs (host-parse addr family)))
(funcall func a)))
+(export 'do-host)
(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)))