From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 12 Jun 2007 19:38:45 +0000 (+0100)
Subject: zone, net, frontend: Kill trailing whitespaces.
X-Git-Url: https://git.distorted.org.uk/~mdw/zone/commitdiff_plain/7fff37978d8a36109b20a60b9beaf90e137d3c64

zone, net, frontend: Kill trailing whitespaces.
---

diff --git a/frontend.lisp b/frontend.lisp
index 5aaadf5..5241be0 100644
--- a/frontend.lisp
+++ b/frontend.lisp
@@ -13,12 +13,12 @@
 ;;; it under the terms of the GNU General Public License as published by
 ;;; the Free Software Foundation; either version 2 of the License, or
 ;;; (at your option) any later version.
-;;; 
+;;;
 ;;; This program is distributed in the hope that it will be useful,
 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;; GNU General Public License for more details.
-;;; 
+;;;
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program; if not, write to the Free Software Foundation,
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
diff --git a/net.lisp b/net.lisp
index 61b5978..28f10ef 100644
--- a/net.lisp
+++ b/net.lisp
@@ -13,12 +13,12 @@
 ;;; it under the terms of the GNU General Public License as published by
 ;;; the Free Software Foundation; either version 2 of the License, or
 ;;; (at your option) any later version.
-;;; 
+;;;
 ;;; This program is distributed in the hope that it will be useful,
 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;; GNU General Public License for more details.
-;;; 
+;;;
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program; if not, write to the Free Software Foundation,
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
diff --git a/zone.lisp b/zone.lisp
index 5755d11..7e6da2b 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -13,12 +13,12 @@
 ;;; it under the terms of the GNU General Public License as published by
 ;;; the Free Software Foundation; either version 2 of the License, or
 ;;; (at your option) any later version.
-;;; 
+;;;
 ;;; This program is distributed in the hope that it will be useful,
 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;; GNU General Public License for more details.
-;;; 
+;;;
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program; if not, write to the Free Software Foundation,
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
@@ -422,7 +422,7 @@
 	(unless (ipnet-subnetp net tnet)
 	  (error "~A is not a subnet of ~A."
 		 (ipnet-pretty tnet)
-		 (ipnet-pretty net)))		 
+		 (ipnet-pretty net)))
 	(unless tdom
 	  (setf tdom
 		(join-strings #\.
@@ -444,7 +444,7 @@
 		      :ttl ttl
 		      :data (join-strings #\. (list tail tdom)))
 		     list)))))))
-						  
+
 ;;;--------------------------------------------------------------------------
 ;;; Zone form parsing.
 
@@ -490,7 +490,7 @@
    NAME		The name of the record to be added.
 
    DATA		The content of the record to be added (a single object,
-		unevaluated). 
+		unevaluated).
 
    LIST		A function to add a record to the zone.  See below.
 
@@ -562,7 +562,7 @@
 			    (zr-defsubp zr)))))
 	  (zone-process-records records
 				(zone-default-ttl zone)
-				#'parse-record ))
+				#'parse-record))
       (setf (zone-records zone) (nconc (zone-records zone) rec)))))
 
 (defun zone-parse (zf)
@@ -659,7 +659,7 @@
       (rec :name (zone-parse-host "broadcast" name)
 	   :type :a
 	   :data (ipnet-broadcast n)))))
-  
+
 (defzoneparse (:rev :reverse) (name data rec)
   ":reverse ((NET :bytes BYTES) ZONE*)"
   (setf data (listify data))
@@ -703,7 +703,7 @@
 	(unless (ipnet-subnetp net tnet)
 	  (error "~A is not a subnet of ~A."
 		 (ipnet-pretty tnet)
-		 (ipnet-pretty net)))		 
+		 (ipnet-pretty net)))
 	(unless tdom
 	  (with-ipnet (net mask) tnet
 	    (setf tdom