projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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*))
*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
(defvar *interpreted-function-cache* nil)
(declaim (type list *interpreted-function-cache*))
\f
@@
-118,7
+118,7
@@
\f
;;;; interpreted functions
\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*))
(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
;;; 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))
(let ((res (sb!c:compile-for-eval form)))
(if *already-evaled-this*
(let ((*already-evaled-this* nil))