0.pre7.14.flaky4:

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

diff --git a/src/compiler/eval.lisp b/src/compiler/eval.lisp
index e932367..970f60a 100644 (file)
--- a/src/compiler/eval.lisp
+++ b/src/compiler/eval.lisp
@@ -29,7 +29,7 @@
               *interpreted-function-cache-minimum-size*
               *interpreted-function-cache-threshold*))
 
-;;; The list of INTERPRETED-FUNCTIONS that have translated definitions.
+;;; The list of INTERPRETED-FUNCTIONs that have translated definitions.
 (defvar *interpreted-function-cache* nil)
 (declaim (type list *interpreted-function-cache*))
 \f
@@ -118,7 +118,7 @@
 \f
 ;;;; interpreted functions
 
-;;; the list of INTERPRETED-FUNCTIONS that have translated definitions
+;;; the list of INTERPRETED-FUNCTIONs that have translated definitions
 (defvar *interpreted-function-cache* nil)
 (declaim (type list *interpreted-function-cache*))
 
@@ -581,7 +581,7 @@
 ;;; NIL around the apply to limit the inhibition to the lexical scope
 ;;; of the EVAL-WHEN.
 #!+sb-interpreter
-(defun internal-eval (form)
+(defun sb!eval:internal-eval (form)
   (let ((res (sb!c:compile-for-eval form)))
     (if *already-evaled-this*
        (let ((*already-evaled-this* nil))