From b23c65ee5879e401cf7e260e104d3d1f8f3a2266 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 29 Dec 2013 20:41:15 +0000 Subject: [PATCH] zone.lisp: Clean up whitespace. --- zone.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/zone.lisp b/zone.lisp index 8769fa3..eaa0e2d 100644 --- a/zone.lisp +++ b/zone.lisp @@ -397,8 +397,8 @@ (safely-writing (out file) (format out ";; Serial number file for zone ~A~%~ - ;; (LAST-SEQ DAY MONTH YEAR)~%~ - ~S~%" + ;; (LAST-SEQ DAY MONTH YEAR)~%~ + ~S~%" name (cons seq now))) (from-mixed-base '(100 100 100) (reverse (cons seq now))))) @@ -410,7 +410,7 @@ "Parse the HEAD of a zone form. This has the form (NAME &key :source :admin :refresh :retry - :expire :min-ttl :ttl :serial) + :expire :min-ttl :ttl :serial) though a singleton NAME needn't be a list. Returns the default TTL and an soa structure representing the zone head." @@ -449,8 +449,8 @@ (export 'defzoneparse) (defmacro defzoneparse (types (name data list &key (prefix (gensym "PREFIX")) - (zname (gensym "ZNAME")) - (ttl (gensym "TTL"))) + (zname (gensym "ZNAME")) + (ttl (gensym "TTL"))) &body body) "Define a new zone record type (or TYPES -- a list of synonyms is permitted). The arguments are as follows: -- 2.11.0