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 a90490a1658874e40009e82b00562efd32d36aa4..f3ea23ce849a5273f1f5670f5f7f4f15c734b080 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -694,8 +694,8 @@ (defmacro defrevzone (head &body zf)
     (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))