From 7c34d08c2897bc22dcc3350a49f3794bb0134d3b Mon Sep 17 00:00:00 2001 Message-Id: <7c34d08c2897bc22dcc3350a49f3794bb0134d3b.1714120298.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sat, 13 Jul 2013 16:34:40 +0100 Subject: [PATCH] zone.lisp: Export function and macro for iterating over hosts. Organization: Straylight/Edgeware From: Mark Wooding --- zone.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/zone.lisp b/zone.lisp index d25986a..d71536c 100644 --- a/zone.lisp +++ b/zone.lisp @@ -580,12 +580,14 @@ (defmacro defrevzone (head &body zf) 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))) -- [mdw]