From 0ec40e49f2208f838ff622489ee81a7ce42aa4b4 Mon Sep 17 00:00:00 2001
From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Mon, 9 Apr 2012 12:04:18 +0300
Subject: delete trailing whitespace

---
 specials.lisp   | 2 +-
 test/tests.lisp | 2 +-
 who.lisp        | 6 +++---
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/specials.lisp b/specials.lisp
index 8808f2f..349c7fc 100755
--- a/specials.lisp
+++ b/specials.lisp
@@ -89,7 +89,7 @@ needs to output case sensitive XML.")
     :of
     :over
     :param
-    :range   
+    :range
     :right
     :source
     :spacer
diff --git a/test/tests.lisp b/test/tests.lisp
index 44ea411..88cbc6d 100644
--- a/test/tests.lisp
+++ b/test/tests.lisp
@@ -58,7 +58,7 @@
           :of
           :over
           :param
-          :range   
+          :range
           :right
           :spacer
           :spot
diff --git a/who.lisp b/who.lisp
index 823ea46..f6dea56 100644
--- a/who.lisp
+++ b/who.lisp
@@ -114,7 +114,7 @@ forms."
             ;; do the same things as above but at runtime
             nconc (list `(let ((,=var= ,val))
                           (cond ((null ,=var=))
-                                ((eq ,=var= t) 
+                                ((eq ,=var= t)
                                  ,(case *html-mode*
                                     (:sgml
                                      `(fmt " ~A" attr))
@@ -189,7 +189,7 @@ flattened list of strings. Utility function used by TREE-TO-COMMANDS-AUX."
         ;; list - insert as sexp
         else if (consp element)
         collect `(let ((*indent* ,*indent*)) ,element)
-        ;; something else - insert verbatim     
+        ;; something else - insert verbatim
         else
         collect element))
 
@@ -276,7 +276,7 @@ supplied."
      (macrolet ((htm (&body body)
                   `(with-html-output (,',var nil :prologue nil :indent ,,indent)
                      ,@body))
-                (fmt (&rest args)                        
+                (fmt (&rest args)
                   `(format ,',var ,@args))
                 (esc (thing)
                   (with-unique-names (result)
-- 
cgit v1.2.3