"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"
"DISASSEMBLE-CODE-COMPONENT"
"DISASSEMBLE-FUN" "DISASSEMBLE-MEMORY"
"DISASSEMBLE-SEGMENT" "DISASSEMBLE-SEGMENTS"
- "DSTATE-CODE" "DSTATE-CURPOS" "DSTATE-GET-PROP"
+ "DSTATE-CODE" "DSTATE-CURPOS" "DSTATE-GET-INST-PROP"
+ "DSTATE-GET-PROP" "DSTATE-PUT-INST-PROP"
"DSTATE-NEXTPOS" "DSTATE-SEGMENT-LENGTH"
"DSTATE-SEGMENT-SAP" "DSTATE-SEGMENT-START"
"FIELD-TYPE" "FIND-INST" "GEN-FIELD-TYPE-DECL-FORM"
"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"
"COLD-FSET"
"!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS"
+ ;; catch tags
+ "TOPLEVEL-CATCHER"
+
;; hooks for contrib/ stuff we're insufficiently sure
;; about to add to SB!EXT
"*REPL-PROMPT-FUN*"
"%MAKE-RATIO" "%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1"
"%MAP-TO-LIST-ARITY-1" "%MAP-TO-NIL-ON-SEQUENCE"
"%MAP-TO-NIL-ON-SIMPLE-VECTOR" "%MAP-TO-NIL-ON-VECTOR"
- "%MASK-FIELD" "%NEGATE" "%POW" "%PUTHASH" "%RAW-BITS"
+ "%MASK-FIELD" "%NEGATE" "%POW" "%PUTHASH"
+ "%RAW-BITS" "%VECTOR-RAW-BITS"
"%RAW-REF-COMPLEX-DOUBLE" "%RAW-REF-COMPLEX-LONG"
"%RAW-REF-COMPLEX-SINGLE" "%RAW-REF-DOUBLE"
"%RAW-REF-LONG" "%RAW-REF-SINGLE"
"%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-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"
"%SET-SAP-REF-LONG" "%SET-SAP-REF-SAP"
"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"
"ASH-INDEX" "ASSERT-ERROR"
#!+sb-unicode "BASE-CHAR-P"
"BASE-STRING-P"
- "BINDING-STACK-POINTER-SAP" "BIT-BASH-COPY" "BIT-INDEX"
+ "BINDING-STACK-POINTER-SAP" "BIT-INDEX"
"BOGUS-ARG-TO-VALUES-LIST-ERROR" "BOOLE-CODE"
"BOUNDING-INDICES-BAD-ERROR" "BYTE-SPECIFIER" "%BYTE-BLT"
"CALLABLE" "CASE-BODY-ERROR"
"CONS-TYPE-CDR-TYPE" "CONS-TYPE-P" "CONSED-SEQUENCE"
"CONSTANT" "CONSTANT-TYPE" "CONSTANT-TYPE-P"
"CONSTANT-TYPE-TYPE" "CONTAINING-INTEGER-TYPE"
- "CONTROL-STACK-POINTER-SAP" "COPY-FROM-SYSTEM-AREA"
- "COPY-TO-SYSTEM-AREA" "COPY-BYTE-VECTOR-TO-SYSTEM-AREA"
+ "CONTROL-STACK-POINTER-SAP" "COPY-BYTE-VECTOR-TO-SYSTEM-AREA"
"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"
"STACK-REF" "STREAM-DESIGNATOR" "STRING-DESIGNATOR"
"STRUCTURE-RAW-SLOT-TYPE-AND-SIZE" "SUB-GC"
"SYMBOLS-DESIGNATOR" "%INSTANCE-LENGTH" "%INSTANCE-REF"
- "%INSTANCE-SET" "SYSTEM-AREA-CLEAR" "SYSTEM-AREA-COPY"
+ "%INSTANCE-SET" "SYSTEM-AREA-CLEAR"
"TWO-ARG-*" "TWO-ARG-+" "TWO-ARG--" "TWO-ARG-/"
"TWO-ARG-/=" "TWO-ARG-<" "TWO-ARG-<=" "TWO-ARG-="
"TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND" "TWO-ARG-EQV"
"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"
+ "UB2-BASH-FILL" "SYSTEM-AREA-UB2-FILL"
+ "UB4-BASH-FILL" "SYSTEM-AREA-UB4-FILL"
+ "UB8-BASH-FILL" "SYSTEM-AREA-UB8-FILL"
+ "UB16-BASH-FILL" "SYSTEM-AREA-UB16-FILL"
+ "UB32-BASH-FILL" "SYSTEM-AREA-UB32-FILL"
+ "UB64-BASH-FILL" "SYSTEM-AREA-UB64-FILL"
+
+ ;; bit bash copiers (FIXME: 32/64-bit issues)
+ "UB1-BASH-COPY" "SYSTEM-AREA-UB1-COPY"
+ "COPY-UB1-TO-SYSTEM-AREA" "COPY-UB1-FROM-SYSTEM-AREA"
+ "UB2-BASH-COPY" "SYSTEM-AREA-UB2-COPY"
+ "COPY-UB2-TO-SYSTEM-AREA" "COPY-UB2-FROM-SYSTEM-AREA"
+ "UB4-BASH-COPY" "SYSTEM-AREA-UB4-COPY"
+ "COPY-UB4-TO-SYSTEM-AREA" "COPY-UB4-FROM-SYSTEM-AREA"
+ "UB8-BASH-COPY" "SYSTEM-AREA-UB8-COPY"
+ "COPY-UB8-TO-SYSTEM-AREA" "COPY-UB8-FROM-SYSTEM-AREA"
+ "UB16-BASH-COPY" "SYSTEM-AREA-UB16-COPY"
+ "COPY-UB16-TO-SYSTEM-AREA" "COPY-UB16-FROM-SYSTEM-AREA"
+ "UB32-BASH-COPY" "SYSTEM-AREA-UB32-COPY"
+ "COPY-UB32-TO-SYSTEM-AREA" "COPY-UB32-FROM-SYSTEM-AREA"
+ "UB64-BASH-COPY" "SYSTEM-AREA-UB64-COPY"
+ "COPY-UB64-TO-SYSTEM-AREA" "COPY-UB64-FROM-SYSTEM-AREA"
"FDEFN" "MAKE-FDEFN" "FDEFN-P" "FDEFN-NAME" "FDEFN-FUN"
"FDEFN-MAKUNBOUND" "OUTER-FDEFN"
"DLOPEN-OR-LOSE"
"FROB-DO-BODY"
"ENABLE-INTERRUPT" "ENUMERATION"
+ "EXTERN-ALIEN-NAME"
"FD-STREAM" "FD-STREAM-FD" "FD-STREAM-P"
"FIND-FOREIGN-SYMBOL-IN-TABLE"
"FOREIGN-SYMBOL-ADDRESS"
no guarantees of interface stability."
:use ("CL" "SB!ALIEN" "SB!EXT" "SB!INT" "SB!SYS")
:export ( ;; wrappers around Unix stuff to give just what Lisp needs
+ "NANOSLEEP"
"UID-USERNAME"
"UID-HOMEDIR"
"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"