From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 25 Mar 2015 21:06:38 +0000 (+0000)
Subject: zone.lisp (devrevzone): Remove trailing dot on the zone name.
X-Git-Url: https://git.distorted.org.uk/~mdw/zone/commitdiff_plain/717391672eedac95f8c2589d70026125589560ff

zone.lisp (devrevzone): Remove trailing dot on the zone name.

It doesn't help anything, and it screws up the serial-file names.
---

diff --git a/zone.lisp b/zone.lisp
index a90490a..f3ea23c 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -694,8 +694,8 @@
     (with-gensyms (ipn)
       `(dolist (,ipn (net-parse-to-ipnets ',nets ,family))
 	 (let ((*address-family* (ipnet-family ,ipn)))
-	   (zone-create `((,(format nil "~A." (reverse-domain ,ipn
-							      ,prefix-bits))
+	   (zone-create `((,(format nil "~A" (reverse-domain ,ipn
+							     ,prefix-bits))
 			    ,@',(loop for (k v) on args by #'cddr
 				      unless (member k
 						     '(:family :prefix-bits))