r11859: Canonicalize whitespace

[xmlutils.git] / build.cl

diff --git a/build.cl b/build.cl
index 8958fe5b1880e97de8ba1abd5dc3d1f5beefd534..5a42ca1ea6128c05fed6b88eee68c012a9f3e0b1 100644 (file)
--- a/build.cl
+++ b/build.cl
@@ -2,27 +2,27 @@
 
 (in-package :user)
 
-(let ((filenames 
+(let ((filenames
        (list
-       "pxml0"
-       "pxml1"
-       "pxml3"
-       "pxml2")))
+        "pxml0"
+        "pxml1"
+        "pxml3"
+        "pxml2")))
   (dolist (f filenames)
     (compile-file-if-needed (concatenate 'string f ".cl"))
     (load (concatenate 'string f ".fasl")))
-  
+
   (with-open-file (out "pxml.fasl"
-                  :element-type '(unsigned-byte 8)
-                  :direction :output
-                  :if-exists :supersede 
-                  :if-does-not-exist :create)
+                   :element-type '(unsigned-byte 8)
+                   :direction :output
+                   :if-exists :supersede
+                   :if-does-not-exist :create)
     (dolist (file filenames)
       (with-open-file (in (concatenate 'string file ".fasl")
-                      :element-type '(unsigned-byte 8))
+                       :element-type '(unsigned-byte 8))
         (format t "~%; ~s" file)
-       (let ((buf (make-array 2048 :element-type '(unsigned-byte 8))))
-         (loop as x = (read-sequence buf in)
-             until (= x 0)
-             do (write-sequence buf out :end x)))))))
-  
+        (let ((buf (make-array 2048 :element-type '(unsigned-byte 8))))
+          (loop as x = (read-sequence buf in)
+              until (= x 0)
+              do (write-sequence buf out :end x)))))))
+