distorted.lisp: Full stops in section comments.

diff --git a/distorted.lisp b/distorted.lisp
index b5a3e949060c7083c0e0e4b77a12848518a5b2c2..c4a3fe6212b0e855719b9676bdb2b3744f4e793c 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -70,33 +70,33 @@    (defhost dns-frontend guvnor.demon)))
 
 (defzone distorted.org.uk
   ;;
 
 (defzone distorted.org.uk
   ;;

-  ;; Nameservers
+  ;; Nameservers.

   :ns #+subnet/fretwank ((metalzone.ns :ip metalzone)
                         (vampire.ns :ip vampire))
       #-subnet/fretwank ((boyle.ns :ip boyle.nsict.org)
                         (chiark.ns :ip chiark.greenend.org.uk)
                         (guvnor.ns :ip guvnor.demon))
   ;;
   :ns #+subnet/fretwank ((metalzone.ns :ip metalzone)
                         (vampire.ns :ip vampire))
       #-subnet/fretwank ((boyle.ns :ip boyle.nsict.org)
                         (chiark.ns :ip chiark.greenend.org.uk)
                         (guvnor.ns :ip guvnor.demon))
   ;;

-  ;; Mail servers
+  ;; Mail servers.

   ((@ mail lists bugs cryptomail)
    :mx mail
    :srv ((:smtp mail)))
   ;;
   ((@ mail lists bugs cryptomail)
    :mx mail
    :srv ((:smtp mail)))
   ;;

-  ;; Other services
+  ;; Other services.

   :srv ((:http www)
        (:ftp ftp))
   ;;
   :srv ((:http www)
        (:ftp ftp))
   ;;

-  ;; Colocated services
+  ;; Colocated services.

   ;;((www ftp git) (inet :svc boyle.nsict.org) (fretwank :svc metalzone))
   ;;
   ;;((www ftp git) (inet :svc boyle.nsict.org) (fretwank :svc metalzone))
   ;;

-  ;; Entry is via little port-forwarding box
+  ;; Entry is via little port-forwarding box.

   (guvnor (inet :a guvnor.demon) (fretwank :a guvnor))
   ;;
   (guvnor (inet :a guvnor.demon) (fretwank :a guvnor))
   ;;

-  ;; Wireless gateway
+  ;; Wireless gateway.

   (untrusted :net untrusted)
   (evolution (untrusted :a evolution))
   ;;
   (untrusted :net untrusted)
   (evolution (untrusted :a evolution))
   ;;

-  ;; Local services
+  ;; Local services.

   (@ :svc www-frontend)
   ((www ftp wiki git bugs mail)
    (inet :svc guvnor.demon)
   (@ :svc www-frontend)
   ((www ftp wiki git bugs mail)
    (inet :svc guvnor.demon)


@@ -106,11 +106,11 @@ (defzone distorted.org.uk
    (fretwank :svc vampire))
   (vox (inet :svc guvnor.demon) (fretwank :svc vampire))
   ;;
    (fretwank :svc vampire))
   (vox (inet :svc guvnor.demon) (fretwank :svc vampire))
   ;;

-  ;; Internal services
+  ;; Internal services.

   ((ntp1) (fretwank :svc metalzone))
   ((www-cache wpad ntp news) (fretwank :svc vampire))
   ;;
   ((ntp1) (fretwank :svc metalzone))
   ((www-cache wpad ntp news) (fretwank :svc vampire))
   ;;

-  ;; Wired ethernet
+  ;; Wired ethernet.

   (fretwank :net fretwank)
   (metalzone (inet :a guvnor.demon)
             (fretwank :a metalzone))
   (fretwank :net fretwank)
   (metalzone (inet :a guvnor.demon)
             (fretwank :a metalzone))


@@ -119,18 +119,18 @@ (defzone distorted.org.uk
           (iodine :a vampire.iodine))
   (obsidian (fretwank :a obsidian))
   ;;
           (iodine :a vampire.iodine))
   (obsidian (fretwank :a obsidian))
   ;;

-  ;; Virtual network
+  ;; Virtual network.

   (virtual :net virtual)
   (crybaby (virtual :a crybaby))
   (terror (virtual :a terror))
   (iodine :net iodine)
   ;;
   (virtual :net virtual)
   (crybaby (virtual :a crybaby))
   (terror (virtual :a terror))
   (iodine :net iodine)
   ;;

-  ;; ITS
+  ;; ITS.

   (its :net its)
   (gw (its :a gw))
   (mz (its :a mz))
   ;;
   (its :net its)
   (gw (its :a gw))
   (mz (its :a mz))
   ;;

-  ;; Delegations
+  ;; Delegations.

   #+subnet/fretwank (dhcp :ns (metalzone.ns vampire.ns))
   (io :ns ((ns.io :ip dns-frontend))))
 
   #+subnet/fretwank (dhcp :ns (metalzone.ns vampire.ns))
   (io :ns ((ns.io :ip dns-frontend))))