"%WITH-ARRAY-DATA/FP"
"%WITH-ARRAY-DATA-MACRO"
"*CURRENT-LEVEL-IN-PRINT*"
- "*EMPTY-TYPE*" "*GC-INHIBIT*" "*GC-PENDING*"
+ "*EMPTY-TYPE*"
+ "*EVAL-CALLS*"
+ "*GC-INHIBIT*" "*GC-PENDING*"
#!+sb-thread "*STOP-FOR-GC-PENDING*"
"*UNIVERSAL-TYPE*"
"*UNIVERSAL-FUN-TYPE*" "*UNPARSE-FUN-TYPE-SIMPLIFY*"
:name "SB!EVAL"
:doc "internal: the evaluator implementation used to execute code without compiling it."
:use ("CL" "SB!KERNEL" "SB!EXT")
+ :reexport ("*EVAL-CALLS*")
:export ("INTERPRETED-FUNCTION"
"INTERPRETED-FUNCTION-P"
"INTERPRETED-FUNCTION-NAME"
"EVAL-IN-NATIVE-ENVIRONMENT"
"PREPARE-FOR-COMPILE"
"COUNT-EVAL-CALLS"
- "*EVAL-LEVEL*"
- "*EVAL-CALLS*"))
+ "*EVAL-LEVEL*"))
#!+win32
#s(sb-cold:package-data