0.6.10.13:

[sbcl.git] / src / compiler / eval.lisp

diff --git a/src/compiler/eval.lisp b/src/compiler/eval.lisp
index 9bab679..94fa93b 100644 (file)
--- 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$")
 \f
 ;;;; 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*