X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Feval.lisp;h=94fa93b47fb3846a95c2a78299003aa9302a9183;hb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;hp=9bab679399c4038e3b4d045d507e61b753fb05a8;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/eval.lisp b/src/compiler/eval.lisp
index 9bab679..94fa93b 100644
--- a/src/compiler/eval.lisp
+++ b/src/compiler/eval.lisp
@@ -11,9 +11,6 @@
 ;;;; files for more information.
 
 (in-package "SB!EVAL")
-
-(file-comment
-  "$Header$")
 
 ;;;; interpreter stack
 
@@ -577,9 +574,9 @@
 ;;;; INTERNAL-EVAL
 
 ;;; Evaluate an arbitary form. We convert the form, then call internal
-;;; apply on it. If *ALREADY-EVALED-THIS* is true, then we bind it to NIL
-;;; around the apply to limit the inhibition to the lexical scope of the
-;;; EVAL-WHEN.
+;;; APPLY on it. If *ALREADY-EVALED-THIS* is true, then we bind it to
+;;; NIL around the apply to limit the inhibition to the lexical scope
+;;; of the EVAL-WHEN.
 (defun internal-eval (form &optional quietly)
   (let ((res (sb!c:compile-for-eval form quietly)))
     (if *already-evaled-this*