chiark / gitweb /
distorted.lisp: Refactor the nameserver stanza.
authorMark Wooding <mdw@distorted.org.uk>
Fri, 1 Jul 2016 21:19:14 +0000 (22:19 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Fri, 1 Jul 2016 21:19:14 +0000 (22:19 +0100)
No actual change.

distorted.lisp

index 7c9c41e..5464bdf 100644 (file)
@@ -67,16 +67,13 @@ (setf *default-zone-source* 'radius.distorted.org.uk.)
 (defzone distorted.org.uk
 
   ;; Nameservers.
-  :ns #+view/inside ((radius.ns :ip radius)
-                    (precision.ns :ip precision)
-                    (telecaster.ns :ip telecaster)
-                    (vampire.ns :ip vampire))
-      #-view/inside ((radius.ns :ip radius)
-                    (precision.ns :ip precision)
-                    (telecaster.ns :ip telecaster)
-                    (mythic-beasts-1.ns :ip mythic-ns1)
-                    (mythic-beasts-2.ns :ip mythic-ns2)
-                    (chiark.ns :ip chiark.greenend.org.uk))
+  :ns ((radius.ns :ip radius)
+       (precision.ns :ip precision)
+       (telecaster.ns :ip telecaster)
+       #+view/inside (vampire.ns :ip vampire)
+       #-view/inside (mythic-beasts-1.ns :ip mythic-ns1)
+       #-view/inside (mythic-beasts-2.ns :ip mythic-ns2)
+       #-view/inside (chiark.ns :ip chiark.greenend.org.uk))
 
   ;; Mail servers.
   ((@ mail blackhole) :mx mail :srv ((:smtp mail)))