X-Git-Url: http://git.kpe.io/?p=xmlutils.git;a=blobdiff_plain;f=build.cl;h=5a42ca1ea6128c05fed6b88eee68c012a9f3e0b1;hp=8958fe5b1880e97de8ba1abd5dc3d1f5beefd534;hb=2e566ae3baa533146fbdb77af653adfda5356b76;hpb=96edd80309cfaea1949768cd4b3a5f7e0dc203d5

diff --git a/build.cl b/build.cl
index 8958fe5..5a42ca1 100644
--- 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)))))))
+