"DEF-SETTER"
"FIXED-ALLOC"
"MAKE-UNBOUND-MARKER"
+ "MAKE-FUNCALLABLE-INSTANCE-TRAMP"
"RETURN-SINGLE"
"NOTE-NEXT-INSTRUCTION"
"SET-SLOT"
"BLOCK-NUMBER"
"BACKEND"
"IR2-BLOCK-BLOCK"
- "FUNCALLABLE-INSTANCE-LEXENV"
"VOP-BLOCK"
"*ASSEMBLY-OPTIMIZE*"
"LARGE-ALLOC"
;; People have various good reasons to mess with the GC.
"*AFTER-GC-HOOKS*"
- "*GC-NOTIFY-AFTER*" "*GC-NOTIFY-BEFORE*" "*GC-NOTIFY-STREAM*"
"BYTES-CONSED-BETWEEN-GCS"
"GC" "GC-OFF" "GC-ON" "GET-BYTES-CONSED"
"*GC-RUN-TIME*"
;; a year or so it can go away completely.
"DEF-SOURCE-CONTEXT"
- ;; FIXME: These seem like the right thing, but are they
- ;; consistent with ANSI? (And actually maybe they're not
- ;; quite the right thing; it might be better to also do
- ;; WITH-STANDARD-IO-SYNTAX or something.)
- "*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*ERROR-PRINT-LINES*"
-
;; extended declarations..
"FREEZE-TYPE" "INHIBIT-WARNINGS"
"MAYBE-INLINE"
;; weak pointers and finalization
"CANCEL-FINALIZATION"
"FINALIZE"
- "HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER"
+ "HASH-TABLE-WEAKNESS" "MAKE-WEAK-POINTER"
"WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
;; If the user knows we're doing IEEE, he might reasonably
"WITH-TIMEOUT" "TIMEOUT"
;; stepping interface
- "STEP-CONDITION" "STEP-FORM-CONDITION"
+ "STEP-CONDITION" "STEP-FORM-CONDITION" "STEP-FINISHED-CONDITION"
"STEP-VALUES-CONDITION" "STEP-VARIABLE-CONDITION"
- "STEP-CONDITION-FORM" "STEP-CONDITION-SOURCE-PATH"
- "STEP-CONDITION-PATHNAME" "STEP-CONDITION-RESULT"
+ "STEP-CONDITION-FORM" "STEP-CONDITION-RESULT"
"STEP-CONTINUE" "STEP-NEXT" "STEP-INTO"
- "*STEPPER-HOOK*"
+ "STEP-CONDITION-ARGS" "*STEPPER-HOOK*" "STEP-OUT"
;; RUN-PROGRAM is not only useful for users, but also
;; useful to implement parts of SBCL itself, so we're
;; external-format support
"OCTETS-TO-STRING" "STRING-TO-OCTETS"
+ ;; Whether to use the interpreter or the compiler for EVAL
+ "*EVALUATOR-MODE*"
+
;; timer
"TIMER" "MAKE-TIMER" "TIMER-NAME" "TIMER-SCHEDULED-P"
"SCHEDULE-TIMER" "UNSCHEDULE-TIMER" "LIST-ALL-TIMERS"))
:name "SB!INT"
:doc
"private: miscellaneous unsupported extensions to the ANSI spec. Much of
-the stuff in here originated in CMU CL's EXTENSIONS package and is
-retained, possibly temporariliy, because it might be used internally."
+the stuff in here originated in CMU CL's EXTENSIONS package and is retained,
+possibly temporariliy, because it might be used internally."
:use ("CL" "SB!ALIEN" "SB!GRAY" "SB!FASL" "SB!SYS")
:export (;; lambda list keyword extensions
"&MORE"
"CHARACTER-DECODING-ERROR" "CHARACTER-DECODING-ERROR-OCTETS"
"CHARACTER-ENCODING-ERROR" "CHARACTER-ENCODING-ERROR-CODE"
"STREAM-DECODING-ERROR" "STREAM-ENCODING-ERROR"
+ "C-STRING-ENCODING-ERROR" "C-STRING-ENCODING-ERROR-EXTERNAL-FORMAT"
+ "C-STRING-DECODING-ERROR" "C-STRING-DECODING-ERROR-EXTERNAL-FORMAT"
"ATTEMPT-RESYNC" "FORCE-END-OF-FILE"
;; bootstrapping magic, to make things happen both in
"PHYSICALIZE-PATHNAME"
"SANE-DEFAULT-PATHNAME-DEFAULTS"
"SBCL-HOMEDIR-PATHNAME"
+ "SIMPLIFY-NAMESTRING"
;; PCOUNTERs
"FASTBIG-INCF-PCOUNTER-OR-FIXNUM"
"ADJUST-LIST"
"%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
"SANE-PACKAGE"
- "CYCLIC-LIST-P"
+ "MAYBE-CYCLIC-P"
"COMPOUND-OBJECT-P"
"SWAPPED-ARGS-FUN"
"AND/TYPE" "NOT/TYPE"
"LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P"
"POSITIVE-PRIMEP"
"EVAL-IN-LEXENV"
+ "SIMPLE-EVAL-IN-LEXENV"
"DEBUG-NAMIFY"
"FORCE" "DELAY" "PROMISE-READY-P"
"FIND-RESTART-OR-CONTROL-ERROR"
"%DOUBLE-FLOAT" "%DPB" "%EQL" "%EXP" "%EXPM1" "%FIND-POSITION"
"%FIND-POSITION-VECTOR-MACRO" "%FIND-POSITION-IF"
"%FIND-POSITION-IF-VECTOR-MACRO" "%FIND-POSITION-IF-NOT"
- "%FIND-POSITION-IF-NOT-VECTOR-MACRO" "%FUN-DOC"
- "%FUN-NAME" "%HYPOT" "%LDB" "%LOG" "%LOGB" "%LOG10"
+ "%FIND-POSITION-IF-NOT-VECTOR-MACRO"
+ "%FUN-DOC"
+ "%FUN-FUN"
+ "%FUN-NAME"
+ "%HYPOT" "%LDB" "%LOG" "%LOGB" "%LOG10"
"%LOG1P"
#!+long-float "%LONG-FLOAT"
"%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE"
"%RAW-INSTANCE-SET/COMPLEX-SINGLE"
"%RAW-INSTANCE-REF/COMPLEX-DOUBLE"
"%RAW-INSTANCE-SET/COMPLEX-DOUBLE"
- "%SET-ARRAY-DIMENSION" "%SET-FUNCALLABLE-INSTANCE-FUN"
- "%SET-FUNCALLABLE-INSTANCE-INFO"
+ "%SET-ARRAY-DIMENSION" "%SET-FUNCALLABLE-INSTANCE-INFO"
"%SET-RAW-BITS" "%SET-VECTOR-RAW-BITS"
"%SET-SAP-REF-16" "%SET-SAP-REF-32" "%SET-SAP-REF-64"
"%SET-SAP-REF-WORD" "%SET-SAP-REF-8" "%SET-SAP-REF-DOUBLE"
"PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
"PARSE-DEFMACRO" "PARSE-UNKNOWN-TYPE"
"PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR"
- #!+(or x86 x86-64) "*PSEUDO-ATOMIC-ATOMIC*"
- #!+(or x86 x86-64) "*PSEUDO-ATOMIC-INTERRUPTED*"
+ #!+(or x86 x86-64) "*PSEUDO-ATOMIC-BITS*"
"PUNT-PRINT-IF-TOO-LONG" "READER-IMPOSSIBLE-NUMBER-ERROR"
"READER-PACKAGE-ERROR" "READER-EOF-ERROR"
"RESTART-DESIGNATOR"
"FDEFN-MAKUNBOUND" "OUTER-FDEFN"
"%COERCE-CALLABLE-TO-FUN" "FUN-SUBTYPE"
"*MAXIMUM-ERROR-DEPTH*" "%SET-SYMBOL-PLIST"
- "INFINITE-ERROR-PROTECT" "FIND-CALLER-NAME-AND-FRAME"
+ "INFINITE-ERROR-PROTECT"
+ "FIND-CALLER-NAME-AND-FRAME"
+ "FIND-INTERRUPTED-NAME-AND-FRAME"
"%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE"
"OUTPUT-SYMBOL-NAME" "%COERCE-NAME-TO-FUN"
"INVOKE-MACROEXPAND-HOOK" "DEFAULT-STRUCTURE-PRINT"
"STANDARD-CLASSOID" "CLASSOID-OF"
"MAKE-STANDARD-CLASSOID" "CLASSOID-CELL-TYPEP"
"FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
- "FUNCALLABLE-STRUCTURE-CLASSOID" "%RANDOM-DOUBLE-FLOAT"
+ "%RANDOM-DOUBLE-FLOAT"
#!+long-float "%RANDOM-LONG-FLOAT"
- "%RANDOM-SINGLE-FLOAT" "RANDOM-PCL-CLASSOID"
+ "%RANDOM-SINGLE-FLOAT" "STATIC-CLASSOID"
"%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK" "BIG-RANDOM-CHUNK"
- "MAKE-FUNCALLABLE-STRUCTURE-CLASSOID"
"LAYOUT-CLOS-HASH-MAX" "CLASSOID-CELL-NAME"
"BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES"
"BUILT-IN-CLASSOID-TRANSLATION" "RANDOM-LAYOUT-CLOS-HASH"
"FUNCALLABLE-INSTANCE-FUN" "%FUNCALLABLE-INSTANCE-LAYOUT"
"%SET-FUNCALLABLE-INSTANCE-LAYOUT"
"BASIC-STRUCTURE-CLASSOID" "CLASSOID-CELL-CLASSOID"
- "FUNCALLABLE-STRUCTURE-CLASSOID-P" "REGISTER-LAYOUT"
+ "REGISTER-LAYOUT"
"FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
- "MAKE-RANDOM-PCL-CLASSOID" "INSTANCE-LAMBDA"
- "%FUNCALLABLE-INSTANCE-LEXENV" "%MAKE-SYMBOL"
- "%FUNCALLABLE-INSTANCE-FUN" "SYMBOL-HASH"
+ "MAKE-STATIC-CLASSOID" "INSTANCE-LAMBDA"
+ "%MAKE-SYMBOL"
+ "%FUNCALLABLE-INSTANCE-FUNCTION" "SYMBOL-HASH"
"BUILT-IN-CLASSOID" "CONDITION-CLASSOID-P"
"CONDITION-CLASSOID-SLOTS" "MAKE-UNDEFINED-CLASSOID"
"!LATE-PROCLAIM-COLD-INIT" "!CLASS-FINALIZE"
"!CONSTANTP-COLD-INIT"
+ "FLOAT-COLD-INIT-OR-REINIT"
"GC-REINIT"
+ "TIME-REINIT"
"SIGNAL-COLD-INIT-OR-REINIT"
"STREAM-COLD-INIT-OR-RESET"
;; Cleanups to run before saving a core
- "DEBUG-DEINIT" "FOREIGN-DEINIT" "PROFILE-DEINIT"
+ "DEBUG-DEINIT"
+ "FLOAT-DEINIT"
+ "FOREIGN-DEINIT"
+ "PROFILE-DEINIT"
;; Note: These are out of lexicographical order
;; because in CMU CL they were defined as
;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL.
"STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
"SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P"
+ "SYSTEM-INTERNAL-REAL-TIME"
+ "SYSTEM-INTERNAL-RUN-TIME"
"UNDEFINED-FOREIGN-SYMBOLS-P"
"UPDATE-LINKAGE-TABLE" "VECTOR-SAP"
"WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS"
"UNIX-FILE-KIND" "UNIX-KILL" "CODESET"
"TCSETPGRP" "FD-ZERO" "FD-CLR" "CHECK" "UNIX-RESOLVE-LINKS"
"FD-SETSIZE" "TCGETPGRP" "UNIX-FAST-GETRUSAGE"
- "UNIX-SIMPLIFY-PATHNAME" "UNIX-KILLPG"
+ "UNIX-KILLPG"
"TIOCSIGSEND"
"C-IFLAG" "C-LFLAG" "C-OFLAG"
"C-CFLAG" "TCSAFLUSH" "C-CC" "SIOCSPGRP" "TERMIOS"
:export ("*ASSEMBLY-UNIT-LENGTH*"
"*PRIMITIVE-OBJECTS*"
"AFTER-BREAKPOINT-TRAP"
+ "*ALLOC-SIGNAL*"
"ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET"
"ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT"
"ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-P-SLOT"
"FORWARDING-POINTER-TYPE"
"FP-CONSTANT-SC-NUMBER"
"FP-DOUBLE-ZERO-SC-NUMBER" "FP-SINGLE-ZERO-SC-NUMBER"
- "FUNCALLABLE-INSTANCE-FUN-SLOT"
+ "FUNCALLABLE-INSTANCE-TRAMPOLINE-SLOT"
"FUNCALLABLE-INSTANCE-HEADER-WIDETAG"
"FUNCALLABLE-INSTANCE-INFO-OFFSET"
"SIMPLE-FUN-ARGLIST-SLOT" "SIMPLE-FUN-CODE-OFFSET"
"FUN-POINTER-LOWTAG"
"SIMPLE-FUN-SELF-SLOT"
"SIMPLE-FUN-TYPE-SLOT"
- "FUNCALLABLE-INSTANCE-LAYOUT-SLOT"
- "FUNCALLABLE-INSTANCE-LEXENV-SLOT"
"GENCGC-PAGE-SIZE"
#!+ppc "PSEUDO-ATOMIC-INTERRUPTED-FLAG"
#!+ppc "PSEUDO-ATOMIC-FLAG"
"GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER"
"IMMEDIATE-CHARACTER-SC-NUMBER" "IMMEDIATE-SAP-SC-NUMBER"
- "IMMEDIATE-SC-NUMBER" "*INITIAL-DYNAMIC-SPACE-FREE-POINTER*"
+ "IMMEDIATE-SC-NUMBER"
"INSTANCE-HEADER-WIDETAG" "INSTANCE-POINTER-LOWTAG"
"INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE"
"INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS"
"SINGLE-FLOAT-WIDETAG" "SINGLE-FLOAT-VALUE-SLOT"
"SINGLE-INT-CARG-REG-SC-NUMBER"
"SINGLE-REG-SC-NUMBER" "SINGLE-STACK-SC-NUMBER"
- "SINGLE-STEP-BREAKPOINT-TRAP"
+ "SINGLE-STEP-AROUND-TRAP"
+ "SINGLE-STEP-BEFORE-TRAP"
"SINGLE-VALUE-RETURN-BYTE-OFFSET" "SLOT-DOCS"
"SLOT-LENGTH" "SLOT-NAME" "SLOT-OFFSET" "SLOT-OPTIONS"
"SLOT-REST-P" "*STATIC-FUNS*" "STATIC-FUN-OFFSET"
;;"NESTED-WALK-FORM" "MACROEXPAND-ALL"
))
+ #!+sb-eval
+ #s(sb-cold:package-data
+ :name "SB!EVAL"
+ :doc "internal: the evaluator implementation used to execute code without compiling it."
+ :use ("CL" "SB!KERNEL" "SB!EXT")
+ :export ("INTERPRETED-FUNCTION"
+ "INTERPRETED-FUNCTION-P"
+ "INTERPRETED-FUNCTION-NAME"
+ "INTERPRETED-FUNCTION-LAMBDA-LIST"
+ "INTERPRETED-FUNCTION-DOCUMENTATION"
+ "INTERPRETED-FUNCTION-BODY"
+ "INTERPRETED-FUNCTION-SOURCE-LOCATION"
+ "EVAL-IN-ENVIRONMENT"
+ "MAKE-NULL-ENVIRONMENT"
+ "EVAL-IN-NATIVE-ENVIRONMENT"
+ "PREPARE-FOR-COMPILE"
+ "COUNT-EVAL-CALLS"
+ "*EVAL-LEVEL*"
+ "*EVAL-CALLS*"))
+
#!+win32
#s(sb-cold:package-data
:name "SB!WIN32"
"HANDLE-CLEAR-INPUT" "HANDLE-LISTEN" "INT-PTR"
"INVALID-HANDLE" "MILLISLEEP" "PEEK-CONSOLE-INPUT"
"PEEK-NAMED-PIPE" "READ-FILE" "WRITE-FILE"
-
- "GET-PROCESS-TIMES")))
+ "WITH-PROCESS-TIMES" "GET-VERSION-EX")))