chiark / gitweb /
distorted.lisp: Use `do-host' now that it's exported.
authorMark Wooding <mdw@distorted.org.uk>
Sat, 13 Jul 2013 15:34:40 +0000 (16:34 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Sat, 19 Apr 2014 14:56:27 +0000 (15:56 +0100)
distorted.lisp

index c83fb17..1702e1c 100644 (file)
@@ -16,7 +16,7 @@ (defzoneparse :anycast (name data rec :prefix prefix :zname zname)
     ;; IPv6 anycast addresses are globally routable, while IPv4 ones aren't.
     (if (zone-preferred-subnet-p (car any-provider))
        (zone-set-address #'rec (cdr any-provider) :make-ptr-p t)
-       (dolist (addr (host-addrs (host-parse (cdr any-provider))))
+       (do-host (addr (cdr any-provider))
          (let ((family (ipaddr-family addr)))
            (if (member family *anycast-routable-families*)
                (zone-set-address #'rec addr