"FREE-ALIEN"
"GET-ERRNO"
"INT"
- "LOAD-1-FOREIGN" "LOAD-FOREIGN" "LOAD-SHARED-OBJECT" "LONG"
+ "LOAD-1-FOREIGN" "LOAD-FOREIGN" "LOAD-SHARED-OBJECT" "LONG" "LONG-LONG"
"MAKE-ALIEN"
"NULL-ALIEN"
"SAP-ALIEN" "SHORT" "SIGNED" "SLOT" "STRUCT"
"UNDEFINED-ALIEN-ERROR"
"UNSIGNED"
- "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-SHORT"
+ "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-LONG-LONG" "UNSIGNED-SHORT"
"UTF8-STRING"
"VOID"
"WITH-ALIEN"))
"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"
"!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"
"*!LOAD-TIME-VALUES*"
"LOAD-TYPE-PREDICATE"
"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"
"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"))
+ "OCTETS-TO-STRING" "STRING-TO-OCTETS"
+
+ ;; timer
+ "TIMER" "MAKE-TIMER" "TIMER-NAME" "TIMER-SCHEDULED-P"
+ "SCHEDULE-TIMER" "UNSCHEDULE-TIMER" "LIST-ALL-TIMERS"))
#s(sb-cold:package-data
:name "SB!FORMAT"
"%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"
"%WITH-ARRAY-DATA" "%WITH-ARRAY-DATA-MACRO"
"*CURRENT-LEVEL-IN-PRINT*"
"*EMPTY-TYPE*" "*GC-INHIBIT*" "*GC-PENDING*"
- #!+sb-thread"*STOP-FOR-GC-PENDING*"
+ #!+sb-thread "*STOP-FOR-GC-PENDING*"
"*CONTROL-STACK-EXHAUSTION-SAP*" "*UNIVERSAL-TYPE*"
"*UNIVERSAL-FUN-TYPE*" "*UNPARSE-FUN-TYPE-SIMPLIFY*"
"*WILD-TYPE*" "WORD-LOGICAL-AND" "WORD-LOGICAL-ANDC1"
"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"
"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"
"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"
"FUNCALLABLE-STRUCTURE-CLASSOID-P" "REGISTER-LAYOUT"
"FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
#s(sb-cold:package-data
:name "SB!THREAD"
- :use ("CL" "SB!ALIEN" "SB!INT")
+ :use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS")
:doc "public (but low-level): native thread support"
:export ("*CURRENT-THREAD*" "THREAD" "MAKE-THREAD"
"THREAD-NAME" "THREAD-ALIVE-P"
"LIST-ALL-THREADS"
"INTERRUPT-THREAD-ERROR"
"INTERRUPT-THREAD-ERROR-THREAD"
- "INTERRUPT-THREAD-ERROR-ERRNO"
"INTERRUPT-THREAD" "TERMINATE-THREAD" "DESTROY-THREAD"
"MUTEX" "MAKE-MUTEX" "MUTEX-NAME" "MUTEX-VALUE"
"GET-MUTEX" "RELEASE-MUTEX" "WITH-MUTEX"
"INTERN-EQL-SPECIALIZER"
"MAKE-METHOD-LAMBDA"
"MAP-DEPENDENTS"
- ;; KLUDGE: See the User Manual
- ;; "METAOBJECT"
+ "METAOBJECT"
"METHOD-FUNCTION"
"METHOD-GENERIC-FUNCTION"
"METHOD-LAMBDA-LIST"
"FOREIGN-SYMBOL-DATAREF-SAP"
"GET-PAGE-SIZE" "GET-SYSTEM-INFO"
"IGNORE-INTERRUPT"
- "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT"
+ "IN-INTERRUPTION"
+ "INT-SAP"
+ "INVALIDATE-DESCRIPTOR"
+ "INVOKE-INTERRUPTION"
+ "IO-TIMEOUT"
"LIST-DYNAMIC-FOREIGN-SYMBOLS"
"MACRO" "MAKE-FD-STREAM" "MAKE-OBJECT-SET" "MEMMOVE"
"NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER"
"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*"
"TRACE-TABLE-FUN-EPILOGUE" "TRACE-TABLE-FUN-PROLOGUE"
"TRACE-TABLE-NORMAL" "N-WIDETAG-BITS" "WIDETAG-MASK"
"UNBOUND-MARKER-WIDETAG"
+ "NO-TLS-VALUE-MARKER-WIDETAG"
"UNSIGNED-IMMEDIATE-SC-NUMBER"
"UNSIGNED-REG-SC-NUMBER" "UNSIGNED-STACK-SC-NUMBER"
"UNWIND-BLOCK-CURRENT-CODE-SLOT" "UNWIND-BLOCK-CURRENT-CONT-SLOT"
"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"
- )))
+ ))
+
+ #!+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")))