From 717391672eedac95f8c2589d70026125589560ff Mon Sep 17 00:00:00 2001 Message-Id: <717391672eedac95f8c2589d70026125589560ff.1715469977.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 25 Mar 2015 21:06:38 +0000 Subject: [PATCH] zone.lisp (devrevzone): Remove trailing dot on the zone name. Organization: Straylight/Edgeware From: Mark Wooding It doesn't help anything, and it screws up the serial-file names. --- zone.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/zone.lisp b/zone.lisp index a90490a..f3ea23c 100644 --- 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)) -- [mdw]