0.6.10:

[sbcl.git] / src / code / target-eval.lisp

diff --git a/src/code/target-eval.lisp b/src/code/target-eval.lisp
index 8f368fe..17e2663 100644 (file)
--- a/src/code/target-eval.lisp
+++ b/src/code/target-eval.lisp
@@ -9,9 +9,6 @@
 
 (in-package "SB!IMPL")
 
 
 (in-package "SB!IMPL")
 

-(file-comment
-  "$Header$")
-

 ;;; FIXME: These probably belong in some package other than SB!IMPL.
 ;;; Perhaps SB!KERNEL?
 
 ;;; FIXME: These probably belong in some package other than SB!IMPL.
 ;;; Perhaps SB!KERNEL?
 

@@ -96,16 +93,17 @@
 \f
 ;;;; EVAL and friends
 
 \f
 ;;;; EVAL and friends
 

-;;; This needs to be initialized in the cold load, since the top-level catcher
-;;; will always restore the initial value.
+;;; This needs to be initialized in the cold load, since the top-level
+;;; catcher will always restore the initial value.

 (defvar *eval-stack-top* 0)
 
 ;;; Pick off a few easy cases, and call INTERNAL-EVAL for the rest. If
 (defvar *eval-stack-top* 0)
 
 ;;; Pick off a few easy cases, and call INTERNAL-EVAL for the rest. If

-;;; *ALREADY-EVALED-THIS* is true, then we bind it to NIL before doing a call
-;;; so that the effect is confined to the lexical scope of the EVAL-WHEN.
+;;; *ALREADY-EVALED-THIS* is true, then we bind it to NIL before doing
+;;; a call so that the effect is confined to the lexical scope of the
+;;; EVAL-WHEN.

 (defun eval (original-exp)
   #!+sb-doc
 (defun eval (original-exp)
   #!+sb-doc

-  "Evaluates its single arg in a null lexical environment, returns the
+  "Evaluates its single argument in a null lexical environment, returns the

   result or results."
   (declare (optimize (safety 1)))
   (let ((exp (macroexpand original-exp)))
   result or results."
   (declare (optimize (safety 1)))
   (let ((exp (macroexpand original-exp)))

@@ -143,8 +141,8 @@
                  ((null name)
                   (do ((args (cdr exp) (cddr args)))
                       ((null (cddr args))
                  ((null name)
                   (do ((args (cdr exp) (cddr args)))
                       ((null (cddr args))

-                       ;; We duplicate the call to SET so that the correct
-                       ;; value gets returned.
+                       ;; We duplicate the call to SET so that the
+                       ;; correct value gets returned.

                        (set (first args) (eval (second args))))
                     (set (first args) (eval (second args)))))
                (let ((symbol (first name)))
                        (set (first args) (eval (second args))))
                     (set (first args) (eval (second args)))))
                (let ((symbol (first name)))