"ALIEN-VALUE" "ALIEN-VALUE-TYPE"
"ALIEN-VALUE-SAP" "ALIEN-VALUE-P"
"ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
- "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE"
+ "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "ALIEN-VOID-TYPE-P"
+ "COMPUTE-ALIEN-REP-TYPE"
"COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA"
"COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE"
"COMPUTE-NATURALIZE-LAMBDA" "DEFINE-ALIEN-TYPE-CLASS"
"DEFINE-ALIEN-TYPE-METHOD" "DEFINE-ALIEN-TYPE-TRANSLATOR" "DEPORT"
"DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN"
- "ENTER-ALIEN-CALLBACK"
+ "*ENTER-ALIEN-CALLBACK*" "ENTER-ALIEN-CALLBACK"
"EXTRACT-ALIEN-VALUE"
"HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
"HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
"*SETF-ASSUMED-FBOUNDP*"
"*SUPPRESS-VALUES-DECLARATION*"
+ #!+x86 "SET-FPU-WORD-FOR-C"
+ #!+x86 "SET-FPU-WORD-FOR-LISP"
"ALLOC-ALIEN-STACK-SPACE" "ALLOC-NUMBER-STACK-SPACE"
"ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
"ALLOCATE-DYNAMIC-CODE-OBJECT" "ALLOCATE-FULL-CALL-FRAME"
+ "ALWAYS-TRANSLATABLE"
"ANY" "ARG-COUNT-ERROR" "ASSEMBLE-FILE"
"ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION"
"ATTRIBUTES=" "BIND"
"!DEF-PRIMITIVE-TYPE" "!DEF-PRIMITIVE-TYPE-ALIAS"
"DEFINE-SOURCE-TRANSFORM" "!DEF-VM-SUPPORT-ROUTINE"
"DEFINE-ASSEMBLY-ROUTINE"
+ "DEFINITION-SOURCE-LOCATION"
+ "DEFINITION-SOURCE-LOCATION-NAMESTRING"
+ "DEFINITION-SOURCE-LOCATION-TOPLEVEL-FORM-NUMBER"
+ "DEFINITION-SOURCE-LOCATION-PLIST"
"DEFINE-MODULAR-FUN"
"DEFINE-MOVE-FUN"
"DEFINE-MOVE-VOP" "DEFINE-STORAGE-BASE"
"SC-OFFSET-OFFSET" "SC-OFFSET-SCN" "SC-OR-LOSE" "SC-P" "SC-SB"
"SET-UNWIND-PROTECT" "SET-VECTOR-SUBTYPE"
"SETUP-CLOSURE-ENVIRONMENT" "SETUP-ENVIRONMENT"
+ "SOURCE-LOCATION"
"SOURCE-TRANSFORM-LAMBDA"
"SPECIFY-SAVE-TN"
"TAIL-CALL" "TAIL-CALL-NAMED"
"VM-SUPPORT-ROUTINES-GENERATE-CALL-SEQUENCE"
"VM-SUPPORT-ROUTINES-GENERATE-RETURN-SEQUENCE"
"VM-SUPPORT-ROUTINES-EMIT-NOP"
- "VM-SUPPORT-ROUTINES-LOCATION-NUMBER"))
+ "VM-SUPPORT-ROUTINES-LOCATION-NUMBER"
+
+ "WITH-SOURCE-LOCATION"
+ "*SOURCE-LOCATION-THUNKS*"))
#s(sb-cold:package-data
:name "SB!DEBUG"
"INITIAL-FUN-CORE-ENTRY-TYPE-CODE"
"*!LOAD-TIME-VALUES*"
"LOAD-TYPE-PREDICATE"
+ #!+(and sb-thread sb-lutex) "LUTEX-TABLE-CORE-ENTRY-TYPE-CODE"
"NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE"
- "OPEN-FASL-OUTPUT"
+ "OPEN-FASL-OUTPUT" "PAGE-TABLE-CORE-ENTRY-TYPE-CODE"
"READ-ONLY-CORE-SPACE-ID"
"*!REVERSED-COLD-TOPLEVELS*"
"STATIC-CORE-SPACE-ID"
: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*"
+ "*POSIX-ARGV*" "*CORE-PATHNAME*"
"POSIX-GETENV" "POSIX-ENVIRON"
;; 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"
;; ..and variables to control compiler policy
"*INLINE-EXPANSION-LIMIT*"
- "*USE-IMPLEMENTATION-TYPES*"
"*DERIVE-FUNCTION-TYPES*"
;; ..and inspector of compiler policy
"PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS"
"PROCESS-STATUS-HOOK" "PROCESS-WAIT"
+ ;; pathnames
+ "NATIVE-PATHNAME"
+ "PARSE-NATIVE-NAMESTRING"
+ "NATIVE-NAMESTRING"
+
;; 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"))
:export (;; lambda list keyword extensions
"&MORE"
+ ;; communication between the runtime and Lisp
+ "*CORE-STRING*"
+
;; INFO stuff doesn't belong in a user-visible package, we
;; should be able to change it without apology.
"*INFO-ENVIRONMENT*"
"INFO"
"MAKE-INFO-ENVIRONMENT"
+ ;; Constant form evaluation
+ "CONSTANT-FORM-VALUE"
+ "CONSTANT-TYPEP"
+
;; stepping control
"*STEPPING*" "*STEP*"
"*SETF-FDEFINITION-HOOK*"
;; error-reporting facilities
- "ENCAPSULATED-CONDITION" "COMPILED-PROGRAM-ERROR"
+ "COMPILED-PROGRAM-ERROR"
+ "ENCAPSULATED-CONDITION"
+ "INTERPRETED-PROGRAM-ERROR"
"SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
"SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR"
"SIMPLE-STREAM-ERROR" "SIMPLE-STORAGE-CONDITION"
"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
"MAKE-TRIVIAL-DEFAULT-PATHNAME"
"PHYSICALIZE-PATHNAME"
"SANE-DEFAULT-PATHNAME-DEFAULTS"
+ "SBCL-HOMEDIR-PATHNAME"
;; 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"
"NTH-BUT-WITH-SANE-ARG-ORDER"
"DEPRECATION-WARNING"
"BIT-VECTOR-="
+ "READ-EVALUATED-FORM"
+ "MAKE-UNPRINTABLE-OBJECT"
;; ..and macros..
"COLLECT"
"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"
"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"
"%CHECK-BOUND" "%CHECK-VECTOR-SEQUENCE-BOUNDS"
"%CLOSURE-FUN" "%CLOSURE-INDEX-REF" "%COS" "%COS-QUICK"
"%COSH" "%DATA-VECTOR-AND-INDEX" "%DEPOSIT-FIELD"
- "%DOUBLE-FLOAT" "%DPB" "%EXP" "%EXPM1" "%FIND-POSITION"
+ "%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"
"*CURRENT-LEVEL-IN-PRINT*"
"*EMPTY-TYPE*" "*GC-INHIBIT*" "*GC-PENDING*"
#!+sb-thread "*STOP-FOR-GC-PENDING*"
- "*CONTROL-STACK-EXHAUSTION-SAP*" "*UNIVERSAL-TYPE*"
+ "*UNIVERSAL-TYPE*"
"*UNIVERSAL-FUN-TYPE*" "*UNPARSE-FUN-TYPE-SIMPLIFY*"
"*WILD-TYPE*" "WORD-LOGICAL-AND" "WORD-LOGICAL-ANDC1"
"WORD-LOGICAL-ANDC2" "WORD-LOGICAL-EQV"
"ALIEN-TYPE-TYPE-ALIEN-TYPE" "ALIEN-TYPE-TYPE-P"
"ALLOCATE-VECTOR" "ALLOCATE-STATIC-VECTOR"
"ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
- "COMPILER-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
+ "PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
"DISABLED-PACKAGE-LOCKS"
"WITH-SINGLE-PACKAGE-LOCKED-ERROR"
"PACKAGE-ERROR-FORMAT-ARGUMENTS"
"INTEGER-DECODE-DOUBLE-FLOAT"
#!+long-float "INTEGER-DECODE-LONG-FLOAT"
"INTEGER-DECODE-SINGLE-FLOAT" "INTERNAL-ERROR"
+ #!+win32 "HANDLE-WIN32-EXCEPTION"
"INTERNAL-TIME" "INTERSECTION-TYPE" "INTERSECTION-TYPE-P"
"INTERSECTION-TYPE-TYPES" "INVALID-ARG-COUNT-ERROR"
"INVALID-ARRAY-INDEX-ERROR" "INVALID-UNWIND-ERROR"
"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"
"SCALE-SINGLE-FLOAT" "SEQUENCE-COUNT" "SEQUENCE-END"
"SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE"
"SET-ARRAY-HEADER" "SET-HEADER-DATA" "SHIFT-TOWARDS-END"
- "SHIFT-TOWARDS-START" "SHRINK-VECTOR"
+ "SHIFT-TOWARDS-START" "SHRINK-VECTOR" "%SHRINK-VECTOR"
;; FIXME: 32/64-bit issues
"SIGNED-BYTE-32-P" "SIGNED-BYTE-64-P"
"SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P"
"UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR"
;; FIXME: 32/64-bit issues
"UNSIGNED-BYTE-32-P" "UNSIGNED-BYTE-64-P"
+ "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"
"FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
"FUNCALLABLE-STRUCTURE-CLASSOID" "%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"
"BASIC-STRUCTURE-CLASSOID" "CLASSOID-CELL-CLASSOID"
"FUNCALLABLE-STRUCTURE-CLASSOID-P" "REGISTER-LAYOUT"
"FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
- "MAKE-RANDOM-PCL-CLASSOID" "INSTANCE-LAMBDA"
+ "MAKE-STATIC-CLASSOID" "INSTANCE-LAMBDA"
"%FUNCALLABLE-INSTANCE-LEXENV" "%MAKE-SYMBOL"
"%FUNCALLABLE-INSTANCE-FUN" "SYMBOL-HASH"
"!VM-TYPE-COLD-INIT" "!BACKQ-COLD-INIT"
"!SHARPM-COLD-INIT" "!EARLY-PROCLAIM-COLD-INIT"
"!LATE-PROCLAIM-COLD-INIT" "!CLASS-FINALIZE"
+ "!CONSTANTP-COLD-INIT"
"GC-REINIT"
"SIGNAL-COLD-INIT-OR-REINIT"
: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"
"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*"
#!+long-float "LONG-STACK-SC-NUMBER"
"LOWTAG-LIMIT" "LOWTAG-MASK"
"LRA-SAVE-OFFSET"
+ #!+(and sb-thread sb-lutex) "LUTEX-WIDETAG"
"MEMORY-USAGE" "MOST-POSITIVE-COST"
"N-LOWTAG-BITS"
"N-FIXNUM-TAG-BITS"
"WEAK-POINTER-VALUE-SLOT"
"WORD" "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS"
"WORD-REG-SC-NUMBER" "WORD-SHIFT"
+ #!+win32 "CONTEXT-RESTORE-TRAP"
"ZERO-SC-NUMBER"))
#s(sb-cold:package-data
;; These were exported from the original PCL version of this
;; package, but aren't used in SBCL.
;;"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"
+ :doc "private: a wrapper layer for Win32 functions needed by
+SBCL itself"
+ :use ("CL" "SB!ALIEN" "SB!EXT" "SB!INT" "SB!SYS")
+ :export ("BOOL"
+ "DWORD" "FD-CLEAR-INPUT" "FD-LISTEN"
+ "FLUSH-CONSOLE-INPUT-BUFFER" "FORMAT-MESSAGE"
+ "GET-LAST-ERROR" "GET-OSFHANDLE" "HANDLE"
+ "HANDLE-CLEAR-INPUT" "HANDLE-LISTEN" "INT-PTR"
+ "INVALID-HANDLE" "MILLISLEEP" "PEEK-CONSOLE-INPUT"
+ "PEEK-NAMED-PIPE" "READ-FILE" "WRITE-FILE"
+
+ "GET-PROCESS-TIMES")))