"LAMBDA-WITH-LEXENV" "LEXENV-FIND"
"LOCATION=" "LTN-ANNOTATE"
"MAKE-ALIAS-TN" "MAKE-CATCH-BLOCK"
- "MAKE-CLOSURE" "MAKE-CONSTANT-TN" "MAKE-FIXNUM"
+ "MAKE-CLOSURE" "MAKE-CONSTANT-TN"
"MAKE-FIXUP-NOTE"
"MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN"
"MAKE-OTHER-IMMEDIATE-TYPE" "MAKE-RANDOM-TN"
"NOTE-FIXUP"
"DEF-CASSER"
"DEF-REFFER"
+ "EMIT-CONSTANT"
"EMIT-NOP"
"DEF-SETTER"
"FIXED-ALLOC"
:doc "private: primitives used to write debuggers"
:use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!VM")
:import-from (("SB!C"
- "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME"
+ "DEBUG-SOURCE-FORM" "DEBUG-SOURCE-NAMESTRING"
"DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
"DEBUG-SOURCE-START-POSITIONS" "MAKE-DEBUG-SOURCE"
"DEBUG-SOURCE" "DEBUG-SOURCE-P"))
- :reexport ("DEBUG-SOURCE-FROM"
- "DEBUG-SOURCE-NAME"
+ :reexport ("DEBUG-SOURCE-FORM"
+ "DEBUG-SOURCE-NAMESTRING"
"DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
"DEBUG-SOURCE-START-POSITIONS" "DEBUG-SOURCE"
"DEBUG-SOURCE-P")
"*DEBUG-PRINT-VARIABLE-ALIST*"
;; Hooks into init & save sequences
- "*INIT-HOOKS*" "*SAVE-HOOKS*"
+ "*INIT-HOOKS*" "*SAVE-HOOKS*" "*EXIT-HOOKS*"
;; There is no one right way to report progress on
;; hairy compiles.
"DISABLE-PACKAGE-LOCKS"
"ENABLE-PACKAGE-LOCKS"
- ;; error signalled when attempt to load an invalid fasl
- ;; is made, so that user code can try to recompile, etc.
+ ;; Custom conditions & condition accessors for users to handle.
+ "CODE-DELETION-NOTE"
+ "COMPILER-NOTE"
+ "IMPLICIT-GENERIC-FUNCTION-NAME"
+ "IMPLICIT-GENERIC-FUNCTION-WARNING"
"INVALID-FASL"
- ;; conditions that can be handled to reduce compiler
- ;; verbosity
- "CODE-DELETION-NOTE" "COMPILER-NOTE"
+ "NAME-CONFLICT" "NAME-CONFLICT-FUNCTION"
+ "NAME-CONFLICT-DATUM" "NAME-CONFLICT-SYMBOLS"
+ "RESOLVE-CONFLICT"
;; and a mechanism for controlling same at compile time
"MUFFLE-CONDITIONS" "UNMUFFLE-CONDITIONS"
"HASH-TABLE-WEAKNESS" "MAKE-WEAK-POINTER"
"WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
+ ;; Hash table locking
+ "HASH-TABLE-SYNCHRONIZED-P"
+ "WITH-LOCKED-HASH-TABLE"
+
;; If the user knows we're doing IEEE, he might reasonably
;; want to do this stuff.
"FLOAT-DENORMALIZED-P"
;; return a PROCESS object with operations defined on
;; that object.
"RUN-PROGRAM"
- "FIND-EXECUTABLE-IN-SEARCH-PATH"
"PROCESS-ALIVE-P" "PROCESS-CLOSE"
"PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE"
"PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P"
:export (;; lambda list keyword extensions
"&MORE"
+ ;; utilities for floating point zero handling
+ "FP-ZERO-P"
+ "NEG-FP-ZERO"
+
+ ;; generic set implementation
+ "ADD-TO-XSET"
+ "ALLOC-XSET"
+ "MAP-XSET"
+ "XSET"
+ "XSET-COUNT"
+ "XSET-EMPTY-P"
+ "XSET-INTERSECTION"
+ "XSET-MEMBER-P"
+ "XSET-MEMBERS"
+ "XSET-SUBSET-P"
+ "XSET-UNION"
+
;; communication between the runtime and Lisp
"*CORE-STRING*"
;; name to the string if possible
"BLOCK-GENSYM"
+ ;; Calling a list of hook functions, plus error handling.
+ "CALL-HOOKS"
+
;; Constant form evaluation
"CONSTANT-FORM-VALUE"
"CONSTANT-TYPEP"
"INTERPRETED-PROGRAM-ERROR"
"SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
"SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR"
- "SIMPLE-READER-ERROR" "SIMPLE-READER-PACKAGE-ERROR"
+ "SIMPLE-READER-ERROR"
+ "SIMPLE-READER-PACKAGE-ERROR"
+ "SIMPLE-REFERENCE-ERROR"
"SIMPLE-STREAM-ERROR"
"SIMPLE-STORAGE-CONDITION"
"SIMPLE-STYLE-WARNING"
"TRY-RESTART"
+ ;; error-signalling facilities
+ "ARRAY-BOUNDING-INDICES-BAD-ERROR"
+ "SEQUENCE-BOUNDING-INDICES-BAD-ERROR"
+
"SPECIAL-FORM-FUNCTION"
"STYLE-WARN" "SIMPLE-COMPILER-NOTE"
"BIT-VECTOR-="
"READ-EVALUATED-FORM"
"MAKE-UNPRINTABLE-OBJECT"
+ "POWER-OF-TWO-CEILING"
;; ..and macros..
"COLLECT"
"FORMAT-TOO-MANY-ARGS-WARNING" "EXTENSION-FAILURE"
"STRUCTURE-INITARG-NOT-KEYWORD" "CONSTANT-MODIFIED"
- "NAME-CONFLICT" "NAME-CONFLICT-FUNCTION"
- "NAME-CONFLICT-DATUM" "NAME-CONFLICT-SYMBOLS"
- "RESOLVE-CONFLICT"
-
;; ..and DEFTYPEs..
"INDEX" "LOAD/STORE-INDEX"
"SIGNED-BYTE-WITH-A-BITE-OUT"
"FLUSH-STANDARD-OUTPUT-STREAMS"
"WITH-UNIQUE-NAMES" "MAKE-GENSYM-LIST"
"ABOUT-TO-MODIFY-SYMBOL-VALUE"
- "SYMBOL-SELF-EVALUATING-P"
"SELF-EVALUATING-P"
"PRINT-PRETTY-ON-STREAM-P"
"ARRAY-READABLY-PRINTABLE-P"
"SB!EXT" "SB!FASL" "SB!INT" "SB!SYS" "SB!GRAY")
:reexport ("DEF!STRUCT" "DEF!MACRO")
:export ("%ACOS"
- "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR"
+ "%ACOSH"
+ "%ADJOIN"
+ "%ADJOIN-EQ"
+ "%ADJOIN-KEY"
+ "%ADJOIN-KEY-EQ"
+ "%ADJOIN-KEY-TEST"
+ "%ADJOIN-KEY-TEST-NOT"
+ "%ADJOIN-TEST"
+ "%ADJOIN-TEST-NOT"
+ "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR"
"%ARRAY-DIMENSION" "%ARRAY-DISPLACED-P"
"%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER"
"%ARRAY-FILL-POINTER-P" "%ARRAY-RANK"
"%ASSOC"
+ "%ASSOC-EQ"
"%ASSOC-KEY"
+ "%ASSOC-KEY-EQ"
"%ASSOC-KEY-TEST"
"%ASSOC-KEY-TEST-NOT"
"%ASSOC-TEST"
"%ASSOC-TEST-NOT"
"%ASIN" "%ASINH"
"%ATAN" "%ATAN2" "%ATANH" "%CALLER-FRAME-AND-PC"
- "%CHECK-BOUND" "%CHECK-VECTOR-SEQUENCE-BOUNDS"
+ "%CHECK-BOUND"
+ "%CHECK-GENERIC-SEQUENCE-BOUNDS"
+ "%CHECK-VECTOR-SEQUENCE-BOUNDS"
"%CLOSURE-FUN" "%CLOSURE-INDEX-REF"
"%COMPARE-AND-SWAP-CAR"
"%COMPARE-AND-SWAP-CDR"
"%FUN-FUN"
"%FUN-NAME"
"%HYPOT" "%LDB" "%LOG" "%LOGB" "%LOG10"
+ "%LAST0"
+ "%LAST1"
+ "%LASTN/FIXNUM"
+ "%LASTN/BIGNUM"
"%LOG1P"
#!+long-float "%LONG-FLOAT"
"%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE"
"%MAKE-RATIO" "%MAKE-LISP-OBJ"
+ "%MAKE-INSTANCE"
+ "%MAKE-STRUCTURE-INSTANCE"
+ "%MAKE-STRUCTURE-INSTANCE-ALLOCATOR"
"%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1"
"%MAP-TO-LIST-ARITY-1" "%MAP-TO-NIL-ON-SEQUENCE"
"%MAP-TO-NIL-ON-SIMPLE-VECTOR" "%MAP-TO-NIL-ON-VECTOR"
"%MASK-FIELD"
"%MEMBER"
+ "%MEMBER-EQ"
"%MEMBER-KEY"
+ "%MEMBER-KEY-EQ"
"%MEMBER-KEY-TEST"
"%MEMBER-KEY-TEST-NOT"
"%MEMBER-TEST"
"%SINH" "%SQRT" "%SXHASH-SIMPLE-STRING"
"%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK" "%TANH"
"%UNARY-ROUND" "%UNARY-TRUNCATE" "%UNARY-FTRUNCATE"
- "%WITH-ARRAY-DATA" "%WITH-ARRAY-DATA-MACRO"
+ "%WITH-ARRAY-DATA"
+ "%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*"
"EFFECTIVE-FIND-POSITION-TEST"
"EFFECTIVE-FIND-POSITION-KEY" "ERROR-NUMBER-OR-LOSE"
"EXTENDED-CHAR-P"
- "FAILED-%WITH-ARRAY-DATA" "FDEFINITION-OBJECT"
+ "FDEFINITION-OBJECT"
"FDOCUMENTATION" "FILENAME"
"FIND-AND-INIT-OR-CHECK-LAYOUT"
"FIND-DEFSTRUCT-DESCRIPTION"
"LAYOUT-N-UNTAGGED-SLOTS" "LAYOUT-FOR-STD-CLASS-P"
"LAYOUT-SLOT-TABLE"
#!+(or x86-64 x86) "%LEA"
- "LEXENV" "LEXENV-DESIGNATOR" "LINE-LENGTH" "ANSI-STREAM"
+ "LEXENV" "LEXENV-DESIGNATOR" "LINE-LENGTH"
+ "LIST-COPY-SEQ*"
+ "LIST-FILL*"
+ "LIST-SUBSEQ*"
+ "ANSI-STREAM"
"ANSI-STREAM-BIN" "ANSI-STREAM-BOUT" "ANSI-STREAM-CLOSE"
- "ANSI-STREAM-ELEMENT-TYPE" "ANSI-STREAM-IN"
+ "ANSI-STREAM-ELEMENT-TYPE"
+ "ANSI-STREAM-FILE-POSITION"
+ "ANSI-STREAM-IN"
"ANSI-STREAM-IN-BUFFER" "ANSI-STREAM-IN-INDEX"
"ANSI-STREAM-INPUT-STREAM-P" "ANSI-STREAM-MISC"
"ANSI-STREAM-N-BIN" "ANSI-STREAM-OPEN-STREAM-P"
"MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE" "MAKE-NULL-LEXENV"
"MAKE-NUMERIC-TYPE"
"MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
- "MAKE-UNPORTABLE-FLOAT" "%MAKE-INSTANCE"
+ "MAKE-UNPORTABLE-FLOAT"
"MAKE-SHORT-VALUES-TYPE" "MAKE-SINGLE-VALUE-TYPE"
- "MAKE-VALUE-CELL" "MAKE-VALUES-TYPE" "MEMBER-TYPE"
- "MEMBER-TYPE-MEMBERS" "MEMBER-TYPE-P" "MERGE-BITS"
- "MODIFIED-NUMERIC-TYPE" "MUTATOR-SELF" "NAMED-TYPE"
+ "MAKE-VALUE-CELL" "MAKE-VALUES-TYPE"
+ "MAPC-MEMBER-TYPE-MEMBERS" "MAPCAR-MEMBER-TYPE-MEMBERS"
+ "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS" "MEMBER-TYPE-P"
+ "MEMBER-TYPE-SIZE" "MERGE-BITS"
+ "MODIFIED-NUMERIC-TYPE"
+ "MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM"
+ "MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM"
+ "MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM"
+ "MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM"
+ "MUTATOR-SELF" "NAMED-TYPE"
"NAMED-TYPE-NAME" "NAMED-TYPE-P" "NATIVE-BYTE-ORDER"
"NEGATE" "NEGATION-TYPE" "NEGATION-TYPE-TYPE"
"NEVER-SUBTYPEP" "NIL-ARRAY-ACCESSED-ERROR"
"PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
"PARSE-DEFMACRO" "PARSE-UNKNOWN-TYPE"
"PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR"
+ "POINTER-HASH"
#!+(or x86 x86-64) "*PSEUDO-ATOMIC-BITS*"
"PUNT-PRINT-IF-TOO-LONG"
"RAW-INSTANCE-SLOTS-EQUALP"
"SINGLE-VALUE-TYPE" "SINGLE-VALUE-SPECIFIER-TYPE"
"SPECIALIZABLE" "SPECIALIZABLE-VECTOR" "SPECIFIER-TYPE"
"STACK-REF" "STREAM-DESIGNATOR" "STRING-DESIGNATOR"
+ "STRING-FILL*"
+ "STRING-SUBSEQ*"
"STRUCTURE-RAW-SLOT-TYPE-AND-SIZE" "SUB-GC"
"SYMBOLS-DESIGNATOR"
"%INSTANCE-LENGTH"
"%INSTANCE-REF"
"%INSTANCE-SET"
"SYSTEM-AREA-CLEAR"
+ "TLS-EXHAUSTED-ERROR"
"TWO-ARG-*" "TWO-ARG-+" "TWO-ARG--" "TWO-ARG-/"
"TWO-ARG-/=" "TWO-ARG-<" "TWO-ARG-<=" "TWO-ARG-="
"TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND" "TWO-ARG-EQV"
"VALUES-TYPE-REST" "VALUES-TYPE-UNION"
"VALUES-TYPE-TYPES" "VALUES-TYPES"
"VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"
- "VECTOR-NIL-P" "VECTOR-TO-VECTOR*"
+ "VECTOR-NIL-P"
+ "VECTOR-FILL*"
+ "VECTOR-SUBSEQ*"
+ "VECTOR-TO-VECTOR*"
"VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH" "WITH-ARRAY-DATA"
"WITH-CIRCULARITY-DETECTION" "WRONG-NUMBER-OF-INDICES-ERROR"
"%OTHER-POINTER-P"
"STANDARD-CLASSOID" "CLASSOID-OF"
- "MAKE-STANDARD-CLASSOID" "CLASSOID-CELL-TYPEP"
+ "MAKE-STANDARD-CLASSOID"
+ "CLASSOID-CELL-CLASSOID"
+ "CLASSOID-CELL-NAME"
+ "CLASSOID-CELL-PCL-CLASS"
+ "CLASSOID-CELL-TYPEP"
+ "CLEAR-CLASSOID"
"FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
"%RANDOM-DOUBLE-FLOAT"
#!+long-float "%RANDOM-LONG-FLOAT"
"%RANDOM-SINGLE-FLOAT" "STATIC-CLASSOID"
"%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK" "BIG-RANDOM-CHUNK"
- "LAYOUT-CLOS-HASH-LIMIT" "CLASSOID-CELL-NAME"
+ "LAYOUT-CLOS-HASH-LIMIT"
"BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES"
"BUILT-IN-CLASSOID-TRANSLATION" "RANDOM-LAYOUT-CLOS-HASH"
"CLASSOID-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
"FUNCALLABLE-INSTANCE-FUN" "%FUNCALLABLE-INSTANCE-LAYOUT"
"%SET-FUNCALLABLE-INSTANCE-LAYOUT"
- "BASIC-STRUCTURE-CLASSOID" "CLASSOID-CELL-CLASSOID"
+ "BASIC-STRUCTURE-CLASSOID"
"REGISTER-LAYOUT"
"FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
"MAKE-STATIC-CLASSOID" "INSTANCE-LAMBDA"
"INTERRUPT-THREAD-ERROR"
"INTERRUPT-THREAD-ERROR-THREAD"
"INTERRUPT-THREAD" "TERMINATE-THREAD" "DESTROY-THREAD"
+ "THREAD-YIELD"
"MUTEX" "MAKE-MUTEX" "MUTEX-NAME" "MUTEX-VALUE"
"GET-MUTEX" "RELEASE-MUTEX" "WITH-MUTEX"
"WITH-RECURSIVE-LOCK"
"*INTERRUPT-PENDING*"
"*LINKAGE-INFO*"
"*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"
+ "*PERIODIC-POLLING-FUNCTION*"
+ "*PERIODIC-POLLING-PERIOD*"
"*RUNTIME-DLHANDLE*"
"*SHARED-OBJECTS*"
"*STATIC-FOREIGN-SYMBOLS*"
"UID-USERNAME"
"UID-HOMEDIR"
"WITH-RESTARTED-SYSCALL"
+ "SB-MKSTEMP"
;; stuff with a one-to-one mapping to Unix constructs
"D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" "DEV-T" "DIRECT"
"RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE"
"R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFLNK" "S-IFMT"
"S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX"
- "S-IWRITE" "SAVETEXT" "SC-MASK" "SC-ONSTACK" "SC-PC" "SETGIDEXEC"
+ "S-IWRITE" "SAVETEXT" "SB-MKSTEMP" "SC-MASK" "SC-ONSTACK"
"SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL"
"SG-OSPEED" "SGTTYB" "SIZE-T" "ST-ATIME" "ST-BLKSIZE" "ST-BLOCKS"
"ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME" "ST-NLINK"
"TIMEVAL" "TIMEZONE" "TIOCFLUSH" "TIOCGETC" "TIOCGETP" "TIOCGLTC"
"TIOCGPGRP" "TIOCGWINSZ" "TIOCNOTTY" "TIOCSETC" "TIOCSETP"
"TIOCSLTC" "TIOCSPGRP" "TIOCSWINSZ" "TV-SEC" "TV-USEC"
- "TZ-DSTTIME" "TZ-MINUTESWEST" "UID-T" "UNIX-CLOSE" "UNIX-DUP"
- "UNIX-EXIT" "UNIX-FILE-MODE" "UNIX-FSTAT" "UNIX-GETHOSTNAME"
- "UNIX-GETPID" "UNIX-GETRUSAGE" "UNIX-GETTIMEOFDAY" "UNIX-GETUID"
- "UNIX-GID" "UNIX-IOCTL" "UNIX-ISATTY" "UNIX-LSEEK" "UNIX-LSTAT"
- "UNIX-MKDIR" "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID" "UNIX-PIPE"
- "UNIX-READ" "UNIX-READLINK" "UNIX-RENAME" "UNIX-SELECT"
- "UNIX-STAT" "UNIX-UID" "UNIX-UNLINK" "UNIX-WRITE" "WINSIZE"
+ "TZ-DSTTIME" "TZ-MINUTESWEST" "UID-T" "UNIX-CLOSE"
+ "UNIX-DUP""UNIX-EXIT" "UNIX-FILE-MODE" "UNIX-FSTAT"
+ "UNIX-GETHOSTNAME" "UNIX-GETPID" "UNIX-GETRUSAGE"
+ "UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-GID" "UNIX-IOCTL"
+ "UNIX-ISATTY" "UNIX-LSEEK" "UNIX-LSTAT" "UNIX-MKDIR"
+ "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID"
+ "UNIX-PIPE" "UNIX-READ" "UNIX-READLINK" "UNIX-REALPATH"
+ "UNIX-RENAME" "UNIX-SELECT" "UNIX-STAT" "UNIX-UID"
+ "UNIX-UNLINK" "UNIX-WRITE"
+ "WINSIZE"
"WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL"
"WS-YPIXEL" "WNOHANG" "WSTOPPED" "WUNTRACED" "W_OK" "X_OK"
#!+linkage-table "LINKAGE-TABLE-SPACE-START"
#!+linkage-table "LINKAGE-TABLE-SPACE-END"
#!+linkage-table "LINKAGE-TABLE-ENTRY-SIZE"
+ "TLS-SIZE"
"TRACE-TABLE-CALL-SITE"
"TRACE-TABLE-FUN-EPILOGUE" "TRACE-TABLE-FUN-PROLOGUE"
"TRACE-TABLE-NORMAL" "N-WIDETAG-BITS" "WIDETAG-MASK"
: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