0.6.10:

[sbcl.git] / src / code / loop.lisp

diff --git a/src/code/loop.lisp b/src/code/loop.lisp
index 784a2f1..1e9dbc6 100644 (file)
--- 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*)