X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=genutils.lisp;h=09d595d77c5304dd1153df418690f71260e8f8af;hp=be156cc325bcfc012e875eb64cc92a50c276b57d;hb=d78955696cc7e6fa8c50a880085c019f506c8bd9;hpb=93b0a41567a808a95f8fc07bd7c76cedc5fbfa40

diff --git a/genutils.lisp b/genutils.lisp
index be156cc..09d595d 100644
--- a/genutils.lisp
+++ b/genutils.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: genutils.lisp,v 1.9 2002/11/07 22:08:41 kevin Exp $
+;;;; $Id: genutils.lisp,v 1.10 2002/11/08 06:43:34 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -222,15 +222,15 @@
 	(strm (gensym)))
     `(let ((,strm ,stream)
 	   (,eof ',eof-value))
-       (do ((,var (read-line ,strm nil ,eof) (read-line ,strm nil ,eof)))
-	   ((eql ,var ,eof))
-	 ,@body))))
+      (do ((,var (read-line ,strm nil ,eof) (read-line ,strm nil ,eof)))
+	  ((eql ,var ,eof))
+	,@body))))
 
 (defmacro with-each-file-line ((var file) &body body)
   (let ((stream (gensym)))
     `(with-open-file (,stream ,file :direction :input)
-         (with-each-stream-line (,var ,stream)
-	    ,@body))))
+      (with-each-stream-line (,var ,stream)
+	,@body))))
 
 		
 ;;; Keyword functions
@@ -385,9 +385,9 @@
 
 (defun file-subst (old new file1 file2)
   (with-open-file (in file1 :direction :input)
-     (with-open-file (out file2 :direction :output
-                                :if-exists :supersede)
-       (stream-subst old new in out))))
+    (with-open-file (out file2 :direction :output
+			 :if-exists :supersede)
+      (stream-subst old new in out))))
 
 (defun stream-subst (old new in out)
   (declare (string old new))