"SYSTEM-AREA-POINTER"
"UNION" "VALUES" "*")
:export ("ADDR"
- "ALIEN" "ALIEN-FUNCALL" "ALIEN-SAP" "ALIEN-SIZE"
+ "ALIEN"
+ "ALIEN-FUNCALL" "ALIEN-SAP" "ALIEN-SIZE"
"CAST" "C-STRING"
"DEFINE-ALIEN-ROUTINE" "DEFINE-ALIEN-TYPE" "DEFINE-ALIEN-VARIABLE"
"UTF8-STRING"
"VOID"
"WITH-ALIEN"))
-
+
#s(sb-cold:package-data
:name "SB!ALIEN-INTERNALS"
:doc "private: stuff for implementing ALIENs and friends"
"%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN-ARRAY-TYPE"
"ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
"ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
+ "ALIEN-CALLBACK"
+ "ALIEN-CALLBACK-ACCESSOR-FORM"
+ "ALIEN-CALLBACK-ASSEMBLER-WRAPPER"
"ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P"
"ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE"
"ALIEN-FLOAT-TYPE-P" "ALIEN-FUN-TYPE"
"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" "EXTRACT-ALIEN-VALUE"
+ "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN"
+ "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"
"LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
"POSIX-GETENV" "POSIX-ENVIRON"
;; People have various good reasons to mess with the GC.
- "*AFTER-GC-HOOKS*" "*BEFORE-GC-HOOKS*"
+ "*AFTER-GC-HOOKS*"
"*GC-NOTIFY-AFTER*" "*GC-NOTIFY-BEFORE*" "*GC-NOTIFY-STREAM*"
"BYTES-CONSED-BETWEEN-GCS"
"GC" "GC-OFF" "GC-ON" "GET-BYTES-CONSED"
;; error-reporting facilities
"ENCAPSULATED-CONDITION" "COMPILED-PROGRAM-ERROR"
"SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
- "SIMPLE-PARSE-ERROR"
- "SIMPLE-PROGRAM-ERROR" "SIMPLE-STREAM-ERROR"
-
+ "SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR"
+ "SIMPLE-STREAM-ERROR" "SIMPLE-STORAGE-CONDITION"
"SIMPLE-STYLE-WARNING"
+
"SPECIAL-FORM-FUNCTION"
"STYLE-WARN" "SIMPLE-COMPILER-NOTE"
;; need it:
"*EOF-OBJECT*"
+ ;; allocation to static space
+ "MAKE-STATIC-VECTOR"
+
;; alien interface utilities
"C-STRINGS->STRING-LIST"
"%RAW-SET-COMPLEX-DOUBLE" "%RAW-SET-COMPLEX-LONG"
"%RAW-SET-COMPLEX-SINGLE" "%RAW-SET-DOUBLE"
"%RAW-SET-LONG" "%RAW-SET-SINGLE" "%SCALB" "%SCALBN"
+ "%RAW-INSTANCE-REF/WORD" "%RAW-INSTANCE-SET/WORD"
+ "%RAW-INSTANCE-REF/SINGLE" "%RAW-INSTANCE-SET/SINGLE"
+ "%RAW-INSTANCE-REF/DOUBLE" "%RAW-INSTANCE-SET/DOUBLE"
+ "%RAW-INSTANCE-REF/COMPLEX-SINGLE"
+ "%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-RAW-BITS" "%SET-VECTOR-RAW-BITS"
"WORD-LOGICAL-OR" "WORD-LOGICAL-ORC1" "WORD-LOGICAL-ORC2"
"WORD-LOGICAL-XOR" "ALIEN-TYPE-TYPE"
"ALIEN-TYPE-TYPE-ALIEN-TYPE" "ALIEN-TYPE-TYPE-P"
- "ALLOCATE-VECTOR" "ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
+ "ALLOCATE-VECTOR" "ALLOCATE-STATIC-VECTOR"
+ "ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
"COMPILER-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
"DISABLED-PACKAGE-LOCKS"
"WITH-SINGLE-PACKAGE-LOCKED-ERROR"
"CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE" "CTYPE-OF"
"CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
"CURRENT-DYNAMIC-SPACE-START" "DATA-VECTOR-REF"
- "DATA-VECTOR-SET" "DECODE-DOUBLE-FLOAT"
+ "DATA-VECTOR-SET" "DECLARATION-TYPE-CONFLICT-ERROR"
+ "DECODE-DOUBLE-FLOAT"
#!+long-float "DECODE-LONG-FLOAT"
"DECODE-SINGLE-FLOAT"
"DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P"
"IRRATIONAL" "JUST-DUMP-IT-NORMALLY" "KEY-INFO"
"KEY-INFO-NAME" "KEY-INFO-P" "KEY-INFO-TYPE"
"LAYOUT-DEPTHOID" "LAYOUT-INVALID-ERROR"
+ "LAYOUT-N-UNTAGGED-SLOTS"
#!+(or x86-64 x86) "%LEA"
"LEXENV" "LEXENV-DESIGNATOR" "LINE-LENGTH" "ANSI-STREAM"
"ANSI-STREAM-BIN" "ANSI-STREAM-BOUT" "ANSI-STREAM-CLOSE"
#!+(or x86 x86-64) "*PSEUDO-ATOMIC-INTERRUPTED*"
"PUNT-PRINT-IF-TOO-LONG" "READER-IMPOSSIBLE-NUMBER-ERROR"
"READER-PACKAGE-ERROR" "READER-EOF-ERROR"
- "RESTART-DESIGNATOR" "SCALE-DOUBLE-FLOAT"
+ "RESTART-DESIGNATOR"
+ "RUN-PENDING-FINALIZERS"
+ "SCALE-DOUBLE-FLOAT"
#!+long-float "SCALE-LONG-FLOAT"
"SCALE-SINGLE-FLOAT" "SEQUENCE-COUNT" "SEQUENCE-END"
"SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE"
"VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"
"VECTOR-NIL-P" "VECTOR-TO-VECTOR*"
"VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH" "WITH-ARRAY-DATA"
- "WRONG-NUMBER-OF-INDICES-ERROR"
+ "WITH-CIRCULARITY-DETECTION" "WRONG-NUMBER-OF-INDICES-ERROR"
;; bit bash fillers (FIXME: 32/64-bit issues)
"UB1-BASH-FILL" "SYSTEM-AREA-UB1-FILL"
:name "SB!THREAD"
:use ("CL" "SB!ALIEN" "SB!INT")
:doc "public (but low-level): native thread support"
- :export ("MAKE-THREAD"
- "MAKE-LISTENER-THREAD" "DESTROY-THREAD" "TERMINATE-THREAD"
- "INTERRUPT-THREAD" "WITH-RECURSIVE-LOCK"
- "MUTEX" "MAKE-MUTEX" "GET-MUTEX" "RELEASE-MUTEX" "WITH-MUTEX"
- "MUTEX-VALUE" "WAITQUEUE" "MAKE-WAITQUEUE"
+ :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"
+ "WITH-RECURSIVE-LOCK"
+ "WAITQUEUE" "MAKE-WAITQUEUE" "WAITQUEUE-NAME"
"CONDITION-WAIT" "CONDITION-NOTIFY" "CONDITION-BROADCAST"
- "WITH-RECURSIVE-LOCK" "RELEASE-FOREGROUND" "WITH-NEW-SESSION"
- "CURRENT-THREAD-ID"))
+ "MAKE-LISTENER-THREAD"
+ "RELEASE-FOREGROUND" "WITH-NEW-SESSION"))
#s(sb-cold:package-data
:name "SB!LOOP"
"DEALLOCATE-SYSTEM-MEMORY"
"DEFAULT-INTERRUPT"
"DEPORT-BOOLEAN" "DEPORT-INTEGER"
- "DYNAMIC-FOREIGN-SYMBOLS"
+ "DYNAMIC-FOREIGN-SYMBOLS-P"
"DLOPEN-OR-LOSE"
"FROB-DO-BODY"
- "ENABLE-INTERRUPT" "ENUMERATION"
+ "ENABLE-INTERRUPT"
+ "ENUMERATION"
+ "ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
+ "EXTERN-ALIEN-NAME"
"FD-STREAM" "FD-STREAM-FD" "FD-STREAM-P"
+ "FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
+ "FIND-FOREIGN-SYMBOL-ADDRESS"
"FIND-FOREIGN-SYMBOL-IN-TABLE"
- "FOREIGN-SYMBOL-ADDRESS"
- "FOREIGN-SYMBOL-ADDRESS-AS-INTEGER"
- "FOREIGN-SYMBOL-ADDRESS-AS-INTEGER-OR-NIL"
- "FOREIGN-SYMBOL-DATAREF-ADDRESS"
- "FOREIGN-SYMBOL-IN-ADDRESS"
+ "FOREIGN-SYMBOL-SAP"
+ "FOREIGN-SYMBOL-ADDRESS"
+ "FOREIGN-SYMBOL-DATAREF-SAP"
"GET-PAGE-SIZE" "GET-SYSTEM-INFO"
"IGNORE-INTERRUPT"
"INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT"
+ "LIST-DYNAMIC-FOREIGN-SYMBOLS"
"MACRO" "MAKE-FD-STREAM" "MAKE-OBJECT-SET" "MEMMOVE"
"NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER"
"OBJECT-SET-OPERATION"
"REMOVE-FD-HANDLER"
"REOPEN-SHARED-OBJECTS"
"RESOLVE-LOADED-ASSEMBLER-REFERENCES"
- "SAP+" "SAP-" "SAP-INT"
+ "SAP+" "SAP-"
+ "SAP-FOREIGN-SYMBOL"
+ "SAP-INT"
"SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-WORD"
"SAP-REF-8"
"SAP-REF-DESCRIPTOR"
;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL.
"STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
"SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P"
+ "UNDEFINED-FOREIGN-SYMBOLS-P"
"UPDATE-LINKAGE-TABLE" "VECTOR-SAP"
"WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS"
"WITH-FD-HANDLER"
"WITH-INTERRUPTS" "WITH-PINNED-OBJECTS" "WITHOUT-GCING"
"WITHOUT-INTERRUPTS" "WORDS"
- "ALLOCATE-SYSTEM-MEMORY-AT"
- "GET-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"))
+ "ALLOCATE-SYSTEM-MEMORY-AT"))
#s(sb-cold:package-data
:name "SB!UNIX"
"NANOSLEEP"
"UID-USERNAME"
"UID-HOMEDIR"
+ "WITH-RESTARTED-SYSCALL"
;; stuff with a one-to-one mapping to Unix constructs
"D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" "DEV-T" "DIRECT"
"DOUBLE-INT-CARG-REG-SC-NUMBER" "DOUBLE-REG-SC-NUMBER"
"DOUBLE-STACK-SC-NUMBER"
"ERROR-TRAP" "EVEN-FIXNUM-LOWTAG"
- "EXPORTED-STATIC-SYMBOLS" "EXTERN-ALIEN-NAME"
+ "EXPORTED-STATIC-SYMBOLS"
"FDEFN-FUN-SLOT" "FDEFN-NAME-SLOT" "FDEFN-RAW-ADDR-SLOT"
"FDEFN-SIZE" "FDEFN-WIDETAG" "FIXNUMIZE"
"FIXNUM-TAG-MASK"