X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Floop.lisp;h=1e9dbc6215484e57b984d0ae6018789779e9ca28;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=784a2f15db223618a3f77ad613af036529b95e2b;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/loop.lisp b/src/code/loop.lisp
index 784a2f1..1e9dbc6 100644
--- a/src/code/loop.lisp
+++ b/src/code/loop.lisp
@@ -66,9 +66,6 @@
 
 (in-package "SB!LOOP")
 
-(sb!int:file-comment
- "$Header$")
-
 ;;;; The design of this LOOP is intended to permit, using mostly the same
 ;;;; kernel of code, up to three different "loop" macros:
 ;;;;
@@ -916,16 +913,16 @@ a LET-like macro, and a SETQ-like macro, which perform LOOP-style destructuring.
 			    (loop-lookup-keyword keyword
 						 (loop-universe-keywords
 						  *loop-universe*)))
-		      ;; It's a "miscellaneous" toplevel LOOP keyword (do,
-		      ;; collect, named, etc.)
+		      ;; It's a "miscellaneous" toplevel LOOP keyword (DO,
+		      ;; COLLECT, NAMED, etc.)
 		      (apply (symbol-function (first tem)) (rest tem)))
 		     ((setq tem
 			    (loop-lookup-keyword keyword
 						 (loop-universe-iteration-keywords *loop-universe*)))
 		      (loop-hack-iteration tem))
 		     ((loop-tmember keyword '(and else))
-		      ;; Alternative is to ignore it, ie let it go around to
-		      ;; the next keyword...
+		      ;; The alternative is to ignore it, i.e. let it go
+		      ;; around to the next keyword...
 		      (loop-error "secondary clause misplaced at top level in LOOP macro: ~S ~S ~S ..."
 				  keyword
 				  (car *loop-source-code*)