"ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
"ALLOCATE-DYNAMIC-CODE-OBJECT" "ALLOCATE-FULL-CALL-FRAME"
"ALWAYS-TRANSLATABLE"
+ "ANCESTOR-FRAME-REF" "ANCESTOR-FRAME-SET"
"ANY" "ARG-COUNT-ERROR" "ASSEMBLE-FILE"
"ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION"
"ATTRIBUTES=" "BIND"
"CHECK-SYMBOL"
;; FIXME: 32/64-bit issues
"CHECK-UNSIGNED-BYTE-32" "CHECK-UNSIGNED-BYTE-64"
- "CLOSURE-INIT" "CLOSURE-REF"
+ "CLOSURE-INIT" "CLOSURE-REF" "CLOSURE-INIT-FROM-FP"
"CODE-CONSTANT-REF" "CODE-CONSTANT-SET"
"*CODE-COVERAGE-INFO*"
"COMPARE-AND-SWAP-SLOT"
"PRIMITIVE-TYPE-OR-LOSE" "PRIMITIVE-TYPE-VOP"
"PRIMITIVE-TYPE-NAME" "PUSH-VALUES"
"READ-PACKED-BIT-VECTOR" "READ-VAR-INTEGER" "READ-VAR-STRING"
+ #!+inline-constants "REGISTER-INLINE-CONSTANT"
"RESET-STACK-POINTER" "RESTORE-DYNAMIC-STATE"
"RETURN-MULTIPLE" "SAVE-DYNAMIC-STATE" "SB"
"SB-ALLOCATED-SIZE" "SB-NAME" "SB-OR-LOSE" "SB-P" "SC" "SC-CASE"
"END-CORE-ENTRY-TYPE-CODE"
"FASL-CONSTANT-ALREADY-DUMPED-P"
"+FASL-FILE-VERSION+"
- "FASL-DUMP-COLD-LOAD-FORM" "FASL-DUMP-COMPONENT"
+ "FASL-DUMP-COMPONENT"
"FASL-DUMP-COLD-FSET"
"FASL-DUMP-LOAD-TIME-VALUE" "FASL-DUMP-LOAD-TIME-VALUE-LAMBDA"
"FASL-DUMP-SOURCE-INFO" "FASL-DUMP-TOPLEVEL-LAMBDA-CALL"
:use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!GRAY")
:export ( ;; Information about how the program was invoked is
;; nonstandard but very useful.
- "*POSIX-ARGV*" "*CORE-PATHNAME*"
+ "*POSIX-ARGV*" "*CORE-PATHNAME*" "*RUNTIME-PATHNAME*"
"POSIX-GETENV" "POSIX-ENVIRON"
- ;; Atomic operations
+ ;; Atomic operations and types related to them
"COMPARE-AND-SWAP"
"ATOMIC-INCF"
+ "ATOMIC-DECF"
+ "WORD"
;; Time related things
"CALL-WITH-TIMING"
"GC" "GET-BYTES-CONSED"
"*GC-RUN-TIME*"
"PURIFY"
+ ;; Gencgc only, but symbols exist for manual building
+ ;; convenience on all platforms.
+ "GENERATION-AVERAGE-AGE"
+ "GENERATION-BYTES-ALLOCATED"
+ "GENERATION-BYTES-CONSED-BETWEEN-GCS"
+ "GENERATION-MINIMUM-AGE-BEFORE-GC"
+ "GENERATION-NUMBER-OF-GCS"
+ "GENERATION-NUMBER-OF-GCS-BEFORE-PROMOTION"
;; Stack allocation control
"*STACK-ALLOCATE-DYNAMIC-EXTENT*"
"IMPLICIT-GENERIC-FUNCTION-NAME"
"IMPLICIT-GENERIC-FUNCTION-WARNING"
"INVALID-FASL"
+ "DEPRECATION-CONDITION"
"NAME-CONFLICT" "NAME-CONFLICT-FUNCTION"
"NAME-CONFLICT-DATUM" "NAME-CONFLICT-SYMBOLS"
;; ..and inspector of compiler policy
"DESCRIBE-COMPILER-POLICY"
"RESTRICT-COMPILER-POLICY"
+ "WITH-COMPILER-POLICY"
;; a special form for breaking out of our "declarations
;; are assertions" default
;; to hide it from them..
"INTERACTIVE-EVAL"
+ ;; Used by LOAD and EVAL-WHEN to pass toplevel indexes
+ ;; to compiler.
+ "EVAL-TLF"
+
;; weak pointers and finalization
"CANCEL-FINALIZATION"
"FINALIZE"
"*ED-FUNCTIONS*"
"*MODULE-PROVIDER-FUNCTIONS*"
"WITH-TIMEOUT" "TIMEOUT"
+ "SEED-RANDOM-STATE"
+ "TYPEXPAND-1" "TYPEXPAND" "TYPEXPAND-ALL"
+ "DEFINED-TYPE-NAME-P" "VALID-TYPE-SPECIFIER-P"
+ "DELETE-DIRECTORY"
;; stepping interface
"STEP-CONDITION" "STEP-FORM-CONDITION" "STEP-FINISHED-CONDITION"
;; Stack allocation without any questions asked
"TRULY-DYNAMIC-EXTENT"
+ ;; Like WITH-LOCKED-HASH-TABLE, but disabled interrupts
+ "WITH-LOCKED-SYSTEM-TABLE"
+
;; generic set implementation
"ADD-TO-XSET"
"ALLOC-XSET"
;; hash mixing operations
"MIX" "MIXF"
+ ;; Macroexpansion that doesn't touch special forms
+ "%MACROEXPAND"
+ "%MACROEXPAND-1"
+
;; I'm not convinced that FDEFINITIONs are the ideal
;; solution, so exposing ways to peek into the system
;; seems undesirable, since it makes it harder to get
"*SETF-FDEFINITION-HOOK*"
;; error-reporting facilities
+ "ARGUMENTS-OUT-OF-DOMAIN-ERROR"
+ "BAD-TYPE"
"CLOSED-STREAM-ERROR"
"COMPILED-PROGRAM-ERROR"
"ENCAPSULATED-CONDITION"
;; error-signalling facilities
"STANDARD-READTABLE-MODIFIED-ERROR"
+ "STANDARD-PPRINT-DISPATCH-TABLE-MODIFIED-ERROR"
"ARRAY-BOUNDING-INDICES-BAD-ERROR"
+ "CIRCULAR-LIST-ERROR"
"SEQUENCE-BOUNDING-INDICES-BAD-ERROR"
"SPECIAL-FORM-FUNCTION"
"STYLE-WARN" "SIMPLE-COMPILER-NOTE"
"SBCL-HOMEDIR-PATHNAME"
"SIMPLIFY-NAMESTRING"
- ;; PCOUNTERs
- "FASTBIG-INCF-PCOUNTER-OR-FIXNUM"
- "INCF-PCOUNTER"
- "INCF-PCOUNTER-OR-FIXNUM"
- "MAKE-PCOUNTER"
- "PCOUNTER"
- "PCOUNTER->INTEGER"
- "PCOUNTER-OR-FIXNUM->INTEGER"
- "PCOUNTER-P"
"*N-BYTES-FREED-OR-PURIFIED*"
+ ;; Deprecating stuff
+ "DEFINE-DEPRECATED-FUNCTION"
+ "EARLY-DEPRECATION-WARNING"
+ "LATE-DEPRECATION-WARNING"
+ "FINAL-DEPRECATION-WARNING"
+ "DEPRECATION-WARNING"
+ "DEPRECATION-ERROR"
+
;; miscellaneous non-standard but handy user-level functions..
"ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
"ADJUST-LIST"
"PSXHASH"
"%BREAK"
"NTH-BUT-WITH-SANE-ARG-ORDER"
- "DEPRECATION-WARNING"
"BIT-VECTOR-="
"READ-EVALUATED-FORM"
"MAKE-UNPRINTABLE-OBJECT"
"DUPLICATE-DEFINITION" "DUPLICATE-DEFINITION-NAME"
"PACKAGE-AT-VARIANCE" "ARRAY-INITIAL-ELEMENT-MISMATCH"
- "TYPE-WARNING" "LOCAL-ARGUMENT-MISMATCH"
+ "TYPE-WARNING" "TYPE-STYLE-WARNING"
+ "LOCAL-ARGUMENT-MISMATCH"
"FORMAT-ARGS-MISMATCH" "FORMAT-TOO-FEW-ARGS-WARNING"
"FORMAT-TOO-MANY-ARGS-WARNING" "EXTENSION-FAILURE"
"STRUCTURE-INITARG-NOT-KEYWORD" "CONSTANT-MODIFIED"
"DEBUG-NAMIFY"
"FORCE" "DELAY" "PROMISE-READY-P"
"FIND-RESTART-OR-CONTROL-ERROR"
+ "LOAD-AS-SOURCE"
;; These could be moved back into SB!EXT if someone has
;; compelling reasons, but hopefully we can get by
"%ARRAY-DISPLACED-FROM"
"%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER"
"%ARRAY-FILL-POINTER-P" "%ARRAY-RANK"
+ #!+(or x86 x86-64 ppc)
+ "%ARRAY-ATOMIC-INCF/WORD"
"%ASSOC"
"%ASSOC-EQ"
"%ASSOC-IF"
"%COMPARE-AND-SWAP-SVREF"
"%COMPARE-AND-SWAP-SYMBOL-PLIST"
"%COMPARE-AND-SWAP-SYMBOL-VALUE"
+ "%CONCATENATE-TO-BASE-STRING"
+ "%CONCATENATE-TO-STRING"
"%COS" "%COS-QUICK"
"%COSH" "%DATA-VECTOR-AND-INDEX" "%DEPOSIT-FIELD"
"%DOUBLE-FLOAT" "%DPB" "%EQL" "%EXP" "%EXPM1" "%FIND-POSITION"
"%RAW-SET-COMPLEX-DOUBLE" "%RAW-SET-COMPLEX-LONG"
"%RAW-SET-COMPLEX-SINGLE" "%RAW-SET-DOUBLE"
"%RAW-SET-LONG" "%RAW-SET-SINGLE" "%SCALB" "%SCALBN"
- #!+(or x86 x86-64)
+ #!+(or x86 x86-64 ppc)
"%RAW-INSTANCE-ATOMIC-INCF/WORD"
"%RAW-INSTANCE-REF/WORD" "%RAW-INSTANCE-SET/WORD"
"%RAW-INSTANCE-REF/SINGLE" "%RAW-INSTANCE-SET/SINGLE"
"%SIN" "%SIN-QUICK" "%SINGLE-FLOAT"
"%SINH" "%SQRT" "%SXHASH-SIMPLE-STRING"
"%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK" "%TANH"
- "%UNARY-ROUND" "%UNARY-TRUNCATE" "%UNARY-FTRUNCATE"
+ "%UNARY-ROUND"
+ "%UNARY-TRUNCATE"
+ "%UNARY-TRUNCATE/SINGLE-FLOAT"
+ "%UNARY-TRUNCATE/DOUBLE-FLOAT"
+ "%UNARY-FTRUNCATE"
"%WITH-ARRAY-DATA"
"%WITH-ARRAY-DATA/FP"
"%WITH-ARRAY-DATA-MACRO"
+ "*APPROXIMATE-NUMERIC-UNIONS*"
"*CURRENT-LEVEL-IN-PRINT*"
"*EMPTY-TYPE*"
"*EVAL-CALLS*"
"FLOAT-WAIT" "DYNAMIC-SPACE-FREE-POINTER" "DYNAMIC-USAGE"
"EFFECTIVE-FIND-POSITION-TEST"
"EFFECTIVE-FIND-POSITION-KEY" "ERROR-NUMBER-OR-LOSE"
- "EXTENDED-CHAR-P"
+ "EXTENDED-CHAR-P" "EXTERNAL-FORMAT-DESIGNATOR"
"FDEFINITION-OBJECT"
"FDOCUMENTATION" "FILENAME"
"FIND-AND-INIT-OR-CHECK-LAYOUT"
"ANSI-STREAM-INPUT-STREAM-P" "ANSI-STREAM-MISC"
"ANSI-STREAM-N-BIN" "ANSI-STREAM-OPEN-STREAM-P"
"ANSI-STREAM-OUT" "ANSI-STREAM-SOUT"
- "ANSI-STREAM-OUTPUT-STREAM-P" "LIST-TO-VECTOR*"
+ "ANSI-STREAM-OUTPUT-STREAM-P"
+ "COMPLEX-VECTOR"
+ "LIST-TO-VECTOR*"
"LOGICAL-HOST" "LOGICAL-HOST-DESIGNATOR"
#!+long-float "LONG-FLOAT-EXPONENT"
#!+long-float "LONG-FLOAT-EXP-BITS"
"TWO-ARG-/=" "TWO-ARG-<" "TWO-ARG-<=" "TWO-ARG-="
"TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND" "TWO-ARG-EQV"
"TWO-ARG-GCD" "TWO-ARG-IOR" "TWO-ARG-LCM" "TWO-ARG-XOR"
+ "TYPE-*-TO-T"
"TYPE-DIFFERENCE" "TYPE-EXPAND" "TYPE-INTERSECTION"
"TYPE-INTERSECTION2" "TYPE-APPROX-INTERSECTION2"
+ "TYPE-SINGLETON-P"
"TYPE-SINGLE-VALUE-P" "TYPE-SPECIFIER" "TYPE-UNION"
"TYPE/=" "TYPE=" "TYPES-EQUAL-OR-INTERSECT"
"UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
"UPDATE-OBJECT-LAYOUT-OR-INVALID"
"VALUE-CELL-REF" "VALUE-CELL-SET" "VALUES-SPECIFIER-TYPE"
"VALUES-SPECIFIER-TYPE-CACHE-CLEAR" "VALUES-SUBTYPEP"
- "VALUES-TYPE" "VALUES-TYPE-ERROR" "VALUES-TYPE-IN"
+ "VALUES-TYPE" "VALUES-TYPE-IN"
"VALUES-TYPE-INTERSECTION"
"VALUES-TYPE-MIN-VALUE-COUNT" "VALUES-TYPE-MAX-VALUE-COUNT"
"VALUES-TYPE-MAY-BE-SINGLE-VALUE-P" "VALUES-TYPE-OPTIONAL"
"VALUES-TYPE-OUT" "VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
"VALUES-TYPE-REST" "VALUES-TYPE-UNION"
"VALUES-TYPE-TYPES" "VALUES-TYPES"
- "VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"
+ "VALUES-TYPES-EQUAL-OR-INTERSECT"
+
+ "*VECTOR-WITHOUT-COMPLEX-TYPECODE-INFOS*"
+ "VECTOR-SINGLE-FLOAT-P" "VECTOR-DOUBLE-FLOAT-P"
+ "VECTOR-UNSIGNED-BYTE-2-P" "VECTOR-UNSIGNED-BYTE-4-P"
+ "VECTOR-UNSIGNED-BYTE-7-P" "VECTOR-UNSIGNED-BYTE-8-P"
+ "VECTOR-UNSIGNED-BYTE-15-P" "VECTOR-UNSIGNED-BYTE-16-P"
+ "VECTOR-UNSIGNED-BYTE-29-P" "VECTOR-UNSIGNED-BYTE-31-P"
+ "VECTOR-UNSIGNED-BYTE-32-P" "VECTOR-UNSIGNED-BYTE-60-P"
+ "VECTOR-UNSIGNED-BYTE-63-P" "VECTOR-UNSIGNED-BYTE-64-P"
+ "VECTOR-SIGNED-BYTE-8-P" "VECTOR-SIGNED-BYTE-16-P"
+ "VECTOR-FIXNUM-P" "VECTOR-SIGNED-BYTE-32-P"
+ "VECTOR-SIGNED-BYTE-64-P" "VECTOR-COMPLEX-SINGLE-FLOAT-P"
+ "VECTOR-COMPLEX-DOUBLE-FLOAT-P" "VECTOR-T-P"
+
"VECTOR-NIL-P"
"VECTOR-FILL*"
"VECTOR-SUBSEQ*"
"SIMPLE-FUN"
"SIMPLE-FUN-P"
"%SIMPLE-FUN-ARGLIST"
+ "%SIMPLE-FUN-DOC"
+ "%SIMPLE-FUN-INFO"
"%SIMPLE-FUN-NAME"
"%SIMPLE-FUN-NEXT"
"%SIMPLE-FUN-SELF"
"BASIC-STRUCTURE-CLASSOID"
"REGISTER-LAYOUT"
"FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
- "MAKE-STATIC-CLASSOID" "INSTANCE-LAMBDA"
+ "MAKE-STATIC-CLASSOID"
"%MAKE-SYMBOL"
"%FUNCALLABLE-INSTANCE-FUNCTION" "SYMBOL-HASH"
"REDEFINITION-WARNING"
"REDEFINITION-WITH-DEFUN"
+ "REDEFINITION-WITH-DEFMACRO"
"REDEFINITION-WITH-DEFGENERIC"
"REDEFINITION-WITH-DEFMETHOD"
"REDEFINITION-REPLACES-GENERIC-FUNCTION-P"
"!FOREIGN-COLD-INIT" "!FUNCTION-NAMES-COLD-INIT"
"!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT"
"!ALIEN-TYPE-COLD-INIT" "!CLASSES-COLD-INIT"
+ "!DEADLINE-COLD-INIT"
"!EARLY-TYPE-COLD-INIT" "!LATE-TYPE-COLD-INIT"
"!FIXUP-TYPE-COLD-INIT" "!TARGET-TYPE-COLD-INIT"
"!RANDOM-COLD-INIT" "!READER-COLD-INIT"
"SYMBOL-VALUE-IN-THREAD-ERROR"
"TERMINATE-THREAD"
"THREAD"
+ "THREAD-DEADLOCK"
+ "THREAD-DEADLOCK-CYCLE"
"THREAD-ERROR"
"THREAD-ERROR-THREAD"
"THREAD-ALIVE-P"
"THREAD-NAME"
"THREAD-YIELD"
+ ;; Memory barrier
+ "BARRIER"
;; Mutexes
"GET-MUTEX"
+ "GRAB-MUTEX"
"HOLDING-MUTEX-P"
"MAKE-MUTEX"
"MUTEX"
"SEMAPHORE-NAME"
"SEMAPHORE-COUNT"
"SIGNAL-SEMAPHORE"
+ "TRY-SEMAPHORE"
"WAIT-ON-SEMAPHORE"))
#s(sb-cold:package-data
;; experimental SBCL-only (for now) symbols
:export ("MAKE-METHOD-SPECIALIZERS-FORM"
"PARSE-SPECIALIZER-USING-CLASS"
- "UNPARSE-SPECIALIZER-USING-CLASS")
+ "UNPARSE-SPECIALIZER-USING-CLASS"
+ "+SLOT-UNBOUND+")
;; FIXME: After a little while, these reexports can probably go
;; away, as they're superseded by the use of SB-MOP as the
;; publically-accessible package.
"ALLOW-WITH-INTERRUPTS"
"BEEP"
"BREAKPOINT-ERROR"
+ "CANCEL-DEADLINE"
"CLOSE-SHARED-OBJECTS"
"DEADLINE-TIMEOUT"
"DEALLOCATE-SYSTEM-MEMORY"
"NANOSLEEP"
"UID-USERNAME"
"UID-HOMEDIR"
+ "USER-HOMEDIR"
"WITH-RESTARTED-SYSCALL"
"SB-MKSTEMP"
+ "FD-TYPE"
;; stuff with a one-to-one mapping to Unix constructs
"D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" "DEV-T" "DIRECT"
"UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-GID" "UNIX-IOCTL"
"UNIX-ISATTY" "UNIX-LSEEK" "UNIX-LSTAT" "UNIX-MKDIR"
"UNIX-OPEN" "UNIX-OPENDIR" "UNIX-PATHNAME" "UNIX-PID"
- "UNIX-PIPE" "UNIX-READ" "UNIX-READDIR" "UNIX-READLINK" "UNIX-REALPATH"
+ "UNIX-PIPE" "UNIX-SIMPLE-POLL" "UNIX-READ" "UNIX-READDIR" "UNIX-READLINK" "UNIX-REALPATH"
"UNIX-RENAME" "UNIX-SELECT" "UNIX-STAT" "UNIX-UID"
"UNIX-UNLINK" "UNIX-WRITE"
"WINSIZE"
structure representations"
:use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!ASSEM" "SB!C"
"SB!EXT" "SB!FASL" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!UNIX")
- :export ("*ASSEMBLY-UNIT-LENGTH*"
+ :reexport ("WORD")
+ :export ("*ALLOC-SIGNAL*"
+ "*ASSEMBLY-UNIT-LENGTH*"
"*PRIMITIVE-OBJECTS*"
+ "+HIGHEST-NORMAL-GENERATION+"
+ "+PSEUDO-STATIC-GENERATION+"
+ "%COMPILER-BARRIER" "%DATA-DEPENDENCY-BARRIER"
+ "%MEMORY-BARRIER" "%READ-BARRIER" "%WRITE-BARRIER"
"AFTER-BREAKPOINT-TRAP"
- "*ALLOC-SIGNAL*"
"ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET"
"ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT"
"ARRAY-DISPLACED-FROM-SLOT"
#!+long-float "COMPLEX-LONG-FLOAT-WIDETAG"
#!+long-float "COMPLEX-LONG-REG-SC-NUMBER"
#!+long-float "COMPLEX-LONG-STACK-SC-NUMBER"
+ #!-x86-64 #!-x86-64
"COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-SLOT"
+ #!+x86-64
+ "COMPLEX-SINGLE-FLOAT-DATA-SLOT"
"COMPLEX-SINGLE-FLOAT-SIZE" "COMPLEX-SINGLE-FLOAT-WIDETAG"
"COMPLEX-SINGLE-REG-SC-NUMBER" "COMPLEX-SINGLE-STACK-SC-NUMBER"
"COMPLEX-SIZE" "COMPLEX-BASE-STRING-WIDETAG"
"GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER"
"IMMEDIATE-CHARACTER-SC-NUMBER" "IMMEDIATE-SAP-SC-NUMBER"
"IMMEDIATE-SC-NUMBER"
+ #!+inline-constants "CANONICALIZE-INLINE-CONSTANT"
+ #!+inline-constants "INLINE-CONSTANT-VALUE"
+ #!+inline-constants "EMIT-CONSTANT-SEGMENT-HEADER"
+ #!+inline-constants "SORT-INLINE-CONSTANTS"
+ #!+inline-constants "EMIT-INLINE-CONSTANT"
"INSTANCE-HEADER-WIDETAG" "INSTANCE-POINTER-LOWTAG"
"INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE"
"INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS"
"WEAK-POINTER-BROKEN-SLOT" "WEAK-POINTER-NEXT-SLOT"
"WEAK-POINTER-SIZE" "WEAK-POINTER-WIDETAG"
"WEAK-POINTER-VALUE-SLOT"
- "WORD" "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS"
+ "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS"
"WORD-REG-SC-NUMBER" "WORD-SHIFT"
#!+win32 "CONTEXT-RESTORE-TRAP"
"ZERO-SC-NUMBER"))
"INTERPRETED-FUNCTION-DEBUG-NAME"
"INTERPRETED-FUNCTION-LAMBDA-LIST"
"INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST"
+ "INTERPRETED-FUNCTION-DECLARATIONS"
"INTERPRETED-FUNCTION-DOCUMENTATION"
"INTERPRETED-FUNCTION-BODY"
"INTERPRETED-FUNCTION-SOURCE-LOCATION"