[untabify a few files
James Bielman  <jamesjb@jamesjb.com>**20060114093347] {
hunk ./doc/colorize-lisp-examples.lisp 157
-		    ,item
+          ,item
hunk ./doc/colorize-lisp-examples.lisp 162
-	      (scan-any (,items &key ,not-preceded-by)
-		(let ((,item (peek-any ,items :not-preceded-by ,not-preceded-by)))
-		  (and ,item (advance (length ,item)))))
-	      (peek (,item &key ,not-preceded-by)
-		(peek-any (list ,item) :not-preceded-by ,not-preceded-by))
+         (scan-any (,items &key ,not-preceded-by)
+      (let ((,item (peek-any ,items :not-preceded-by ,not-preceded-by)))
+        (and ,item (advance (length ,item)))))
+         (peek (,item &key ,not-preceded-by)
+      (peek-any (list ,item) :not-preceded-by ,not-preceded-by))
hunk ./doc/colorize-lisp-examples.lisp 865
-		 :until (advance 1)
-		 :advancing nil))
+       :until (advance 1)
+       :advancing nil))
hunk ./doc/colorize-lisp-examples.lisp 869
-		 :until (advance 1)
-		 :advancing nil))
+       :until (advance 1)
+       :advancing nil))
hunk ./doc/colorize-lisp-examples.lisp 873
-		 :until (or
-			 (and (peek-any '(#\:))
-			      (setf terminate-next t))
-			 (and terminate-next (progn
-					       (setf terminate-next nil)
-					       (advance 1)))
-			 (scan-any *c-terminators*))
-		 :advancing nil)))
+       :until (or
+          (and (peek-any '(#\:))
+               (setf terminate-next t))
+          (and terminate-next (progn
+                      (setf terminate-next nil)
+                      (advance 1)))
+          (scan-any *c-terminators*))
+       :advancing nil)))
hunk ./doc/colorize-lisp-examples.lisp 904
-	  (let ((result (if (find-package :cocoa-lookup)
-			    (funcall (symbol-function (intern "SYMBOL-LOOKUP" :cocoa-lookup))
-				     s))))
-	    (if result
-		(format nil "<a href=\"~A\" class=\"symbol\">~A</a>"
-			result s)
-		(if (member s *c-reserved-words* :test #'string=)
-		    (format nil "<span class=\"symbol\">~A</span>" s)
-		    (if in-message-send
-			(if is-keyword
-			    (format nil "<span class=\"keyword\">~A</span>" s)
-			    s)
-			s))))
-	(setf is-keyword (not is-keyword))))))))
+     (let ((result (if (find-package :cocoa-lookup)
+             (funcall (symbol-function (intern "SYMBOL-LOOKUP" :cocoa-lookup))
+                 s))))
+       (if result
+      (format nil "<a href=\"~A\" class=\"symbol\">~A</a>"
+         result s)
+      (if (member s *c-reserved-words* :test #'string=)
+          (format nil "<span class=\"symbol\">~A</span>" s)
+          (if in-message-send
+         (if is-keyword
+             (format nil "<span class=\"keyword\">~A</span>" s)
+             s)
+         s))))
+   (setf is-keyword (not is-keyword))))))))
hunk ./src/utils.lisp 98
-	(progn .,body)
-	(list 'let
-	 ,`(list ,@(mapcar #'(lambda (tmp var)
-			       `(list ',tmp ,var))
-			   temps variables))
-	 (let ,(mapcar #'(lambda (var tmp) `(,var ',tmp))
-		       variables temps)
-	   .,body)))))
+   (progn .,body)
+   (list 'let
+    ,`(list ,@(mapcar #'(lambda (tmp var)
+                `(list ',tmp ,var))
+            temps variables))
+    (let ,(mapcar #'(lambda (var tmp) `(,var ',tmp))
+             variables temps)
+      .,body)))))
hunk ./uffi-compat/uffi-compat.lisp 443
-	(dolist (type types)
-	  (let ((path (make-pathname 
-		       #+lispworks :host
-		       #+lispworks (when drive-letter drive-letter)
-		       #-lispworks :device
-		       #-lispworks (when drive-letter drive-letter)
-		       :name name 
-		       :type type
-		       :directory 
-		       (etypecase dir
-			 (pathname
-			  (pathname-directory dir))
-			 (list
-			  dir)
-			 (string
-			  (pathname-directory 
-			   (parse-namestring dir)))))))
-	    (when (probe-file path)
-	      (return-from find-foreign-library path)))))))
+   (dolist (type types)
+     (let ((path (make-pathname 
+             #+lispworks :host
+             #+lispworks (when drive-letter drive-letter)
+             #-lispworks :device
+             #-lispworks (when drive-letter drive-letter)
+             :name name 
+             :type type
+             :directory 
+             (etypecase dir
+          (pathname
+           (pathname-directory dir))
+          (list
+           dir)
+          (string
+           (pathname-directory 
+            (parse-namestring dir)))))))
+       (when (probe-file path)
+         (return-from find-foreign-library path)))))))
hunk ./uffi-compat/uffi-compat.lisp 477
-	(setq filename (namestring filename))) ; already loaded
+   (setq filename (namestring filename))) ; already loaded
hunk ./uffi-compat/uffi-compat.lisp 480
-	     (find filename *loaded-libraries* :test #'string-equal))
+        (find filename *loaded-libraries* :test #'string-equal))
}