"INT"
"LOAD-1-FOREIGN" "LOAD-FOREIGN" "LOAD-SHARED-OBJECT" "LONG" "LONG-LONG"
"MAKE-ALIEN"
+ "MAKE-ALIEN-STRING"
"NULL-ALIEN"
- "SAP-ALIEN" "SHORT" "SIGNED" "SLOT" "STRUCT"
+ "OFF-T"
+ "SAP-ALIEN" "SHORT" "SIGNED"
+ "SIZE-T"
+ "SLOT" "STRUCT"
"UNDEFINED-ALIEN-ERROR"
+ "UNLOAD-SHARED-OBJECT"
"UNSIGNED"
"UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-LONG-LONG" "UNSIGNED-SHORT"
"UTF8-STRING"
:name "SB!ALIEN-INTERNALS"
:doc "private: stuff for implementing ALIENs and friends"
:use ("CL")
- :export ("%CAST"
+ :export ("%ALIEN-VALUE"
+ "%CAST"
"%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
"%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
"%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
- "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN-ARRAY-TYPE"
+ "%SLOT-ADDR" "*SAVED-FP-AND-PCS*" "*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-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
"ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
"ALIEN-TYPE-P" "ALIEN-TYPEP"
- "ALIEN-VALUE" "ALIEN-VALUE-TYPE"
+ "ALIEN-VALUE"
+ "ALIEN-VALUE-TYPE"
+ "ALIEN-VALUE-TYPEP"
"ALIEN-VALUE-SAP" "ALIEN-VALUE-P"
"ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
"ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "ALIEN-VOID-TYPE-P"
"COMPUTE-NATURALIZE-LAMBDA" "DEFINE-ALIEN-TYPE-CLASS"
"DEFINE-ALIEN-TYPE-METHOD" "DEFINE-ALIEN-TYPE-TRANSLATOR"
"DEPORT" "DEPORT-ALLOC"
- "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN"
+ "DISPOSE-LOCAL-ALIEN"
"*ENTER-ALIEN-CALLBACK*" "ENTER-ALIEN-CALLBACK"
- "EXTRACT-ALIEN-VALUE"
+ "FIND-SAVED-FP-AND-PC"
"HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
- "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
+ "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD"
+ "INVOKE-WITH-SAVED-FP-AND-PC" "LOCAL-ALIEN"
"LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
"LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
"MAKE-ALIEN-FUN-TYPE" "MAKE-ALIEN-POINTER-TYPE"
"*ASSEM-INSTRUCTIONS*"
"*ASSEM-MAX-LOCATIONS*"
- "EMIT-BYTE" "EMIT-SKIP" "EMIT-BACK-PATCH"
+ "EMIT-ALIGNMENT" "EMIT-BYTE" "EMIT-SKIP" "EMIT-BACK-PATCH"
"EMIT-CHOOSER" "DEFINE-BITFIELD-EMITTER"
"DEFINE-INSTRUCTION" "DEFINE-INSTRUCTION-MACRO"
"DEF-ASSEMBLER-PARAMS" "EMIT-POSTIT"
- "MAKE-SEGMENT" "SEGMENT-NAME" "ASSEMBLE"
- "ALIGN" "INST" "LABEL" "LABEL-P" "GEN-LABEL"
- "EMIT-LABEL" "LABEL-POSITION" "APPEND-SEGMENT" "FINALIZE-SEGMENT"
- "ON-SEGMENT-CONTENTS-VECTORLY" "WRITE-SEGMENT-CONTENTS"
+ "MAKE-SEGMENT" "SEGMENT-TYPE" "ASSEMBLE"
+ "INST" "LABEL" "LABEL-P" "GEN-LABEL"
+ "EMIT-LABEL" "LABEL-POSITION" "APPEND-SEGMENT"
+ "FINALIZE-SEGMENT"
+ "SEGMENT-CONTENTS-AS-VECTOR" "WRITE-SEGMENT-CONTENTS"
"READS" "WRITES" "SEGMENT"
"WITHOUT-SCHEDULING"
"VARIABLE-LENGTH"
:export ("%ADD-WITH-CARRY"
"%ALLOCATE-BIGNUM" "%ASHL" "%ASHR"
"%BIGNUM-LENGTH" "%BIGNUM-REF" "%BIGNUM-REF-WITH-OFFSET"
- "%BIGNUM-SET" "%BIGNUM-SET-WITH-OFFSET"
+ "%BIGNUM-SET"
"%BIGNUM-SET-LENGTH" "%DIGIT-0-OR-PLUSP"
"%DIGIT-LOGICAL-SHIFT-RIGHT"
"%FIXNUM-DIGIT-WITH-CORRECT-SIGN" "%FIXNUM-TO-DIGIT"
- "%FLOOR" "%LOGAND" "%LOGIOR" "%LOGNOT" "%LOGXOR"
+ "%BIGFLOOR" "%LOGAND" "%LOGIOR" "%LOGNOT" "%LOGXOR"
"%MULTIPLY" "%MULTIPLY-AND-ADD"
"%SUBTRACT-WITH-BORROW" "ADD-BIGNUMS"
"BIGNUM-ASHIFT-LEFT" "BIGNUM-ASHIFT-RIGHT"
- "BIGNUM-COMPARE" "BIGNUM-DEPOSIT-BYTE"
+ "BIGNUM-COMPARE"
"BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD" "BIGNUM-INDEX"
- "BIGNUM-INTEGER-LENGTH" "BIGNUM-LOAD-BYTE"
+ "BIGNUM-INTEGER-LENGTH"
"BIGNUM-LOGBITP"
"BIGNUM-LOGCOUNT" "BIGNUM-LOGICAL-AND"
"BIGNUM-LOGICAL-IOR" "BIGNUM-LOGICAL-NOT"
"BIGNUM-LOGICAL-XOR" "BIGNUM-PLUS-P"
"BIGNUM-TO-FLOAT" "BIGNUM-TRUNCATE" "BIGNUM-TYPE"
- "FLOAT-BIGNUM-RATIO" "MAKE-SMALL-BIGNUM"
+ "MAKE-SMALL-BIGNUM"
"MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS"
"MULTIPLY-FIXNUMS" "NEGATE-BIGNUM"
- "SUBTRACT-BIGNUM" "SXHASH-BIGNUM"))
+ "%RANDOM-BIGNUM" "SUBTRACT-BIGNUM" "SXHASH-BIGNUM"))
#s(sb-cold:package-data
:name "SB!C"
"*BACKEND-BYTE-ORDER*" "*BACKEND-DISASSEM-PARAMS*"
"*BACKEND-INSTRUCTION-FLAVORS*" "*BACKEND-INSTRUCTION-FORMATS*"
- "*BACKEND-INTERNAL-ERRORS*" "*BACKEND-PAGE-SIZE*"
+ "*BACKEND-INTERNAL-ERRORS*" "*BACKEND-PAGE-BYTES*"
"*BACKEND-REGISTER-SAVE-PENALTY*"
"*BACKEND-SB-LIST*" "*BACKEND-SB-NAMES*"
"*BACKEND-SC-NAMES*" "*BACKEND-SC-NUMBERS*"
#!+x86 "SET-FPU-WORD-FOR-C"
#!+x86 "SET-FPU-WORD-FOR-LISP"
"ALIGN-STACK-POINTER"
+ "ALIEN-FUNCALL-SAVES-FP-AND-PC"
"ALLOC-ALIEN-STACK-SPACE" "ALLOC-NUMBER-STACK-SPACE"
"ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
- "ALLOCATE-DYNAMIC-CODE-OBJECT" "ALLOCATE-FULL-CALL-FRAME"
+ "ALLOCATE-FULL-CALL-FRAME"
"ALWAYS-TRANSLATABLE"
+ "ANCESTOR-FRAME-REF" "ANCESTOR-FRAME-SET"
"ANY" "ARG-COUNT-ERROR" "ASSEMBLE-FILE"
"ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION"
"ATTRIBUTES=" "BIND"
"CHECK-SYMBOL"
;; FIXME: 32/64-bit issues
"CHECK-UNSIGNED-BYTE-32" "CHECK-UNSIGNED-BYTE-64"
- "CLOSURE-INIT" "CLOSURE-REF"
- "CODE-CONSTANT-REF" "CODE-CONSTANT-SET"
+ "CLOSURE-INIT" "CLOSURE-REF" "CLOSURE-INIT-FROM-FP"
"*CODE-COVERAGE-INFO*"
"COMPARE-AND-SWAP-SLOT"
"COMPILE-IN-LEXENV"
- "COMPILE-LAMBDA-FOR-DEFUN"
"%COMPILER-DEFUN" "COMPILER-ERROR" "FATAL-COMPILER-ERROR"
"COMPILER-NOTIFY"
"COMPILER-STYLE-WARN" "COMPILER-WARN"
"DEFINE-STORAGE-CLASS" "DEFINE-VOP"
"DEFKNOWN" "DEFOPTIMIZER"
"DEFTRANSFORM" "DERIVE-TYPE"
- "ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP"
+ "EMIT-BLOCK-HEADER"
"PHYSENV-DEBUG-LIVE-TN" "PHYSENV-LIVE-TN"
"FAST-SYMBOL-VALUE"
+ "FAST-SYMBOL-GLOBAL-VALUE"
"FIXUP-NOTE-KIND"
"FIXUP-NOTE-FIXUP"
"FIXUP-NOTE-POSITION"
"FUN-INFO-DERIVE-TYPE" "FUN-INFO-IR2-CONVERT"
"FUN-INFO-LTN-ANNOTATE" "FUN-INFO-OPTIMIZER"
"GET-VECTOR-SUBTYPE"
+ "GET-TOPLEVELISH-FILE-INFO"
"HALT"
- "IF-EQ" "INLINE-SYNTACTIC-CLOSURE-LAMBDA"
+ "IF-EQ"
+ "IMMEDIATE-TN-P"
+ "INHIBIT-SAFEPOINTS"
"INSERT-STEP-CONDITIONS"
"IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
"IR2-PHYSENV-NUMBER-STACK-P"
"LAMBDA-WITH-LEXENV" "LEXENV-FIND"
"LOCATION=" "LTN-ANNOTATE"
"MAKE-ALIAS-TN" "MAKE-CATCH-BLOCK"
- "MAKE-CLOSURE" "MAKE-CONSTANT-TN" "MAKE-FIXNUM"
+ "MAKE-CLOSURE" "MAKE-CONSTANT-TN"
"MAKE-FIXUP-NOTE"
"MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN"
- "MAKE-OTHER-IMMEDIATE-TYPE" "MAKE-RANDOM-TN"
+ "MAKE-RANDOM-TN"
"MAKE-REPRESENTATION-TN" "MAKE-RESTRICTED-TN" "MAKE-SC-OFFSET"
"MAKE-STACK-POINTER-TN" "MAKE-TN-REF" "MAKE-UNWIND-BLOCK"
"MAKE-WIRED-TN" "MAYBE-COMPILER-NOTIFY"
"PARSE-EVAL-WHEN-SITUATIONS"
"POLICY"
"%%POP-DX"
- "PREDICATE" "PRIMITIVE-TYPE" "PRIMITIVE-TYPE-OF"
+ "PRIMITIVE-TYPE" "PRIMITIVE-TYPE-OF"
"PRIMITIVE-TYPE-OR-LOSE" "PRIMITIVE-TYPE-VOP"
- "PRIMITIVE-TYPE-NAME" "PUSH-VALUES"
+ "PRIMITIVE-TYPE-NAME"
+ "PRIMITIVE-TYPE-INDIRECT-CELL-TYPE"
+ "PUSH-VALUES"
"READ-PACKED-BIT-VECTOR" "READ-VAR-INTEGER" "READ-VAR-STRING"
+ #!+inline-constants "REGISTER-INLINE-CONSTANT"
"RESET-STACK-POINTER" "RESTORE-DYNAMIC-STATE"
"RETURN-MULTIPLE" "SAVE-DYNAMIC-STATE" "SB"
"SB-ALLOCATED-SIZE" "SB-NAME" "SB-OR-LOSE" "SB-P" "SC" "SC-CASE"
"TN-REF-NEXT" "TN-REF-NEXT-REF" "TN-REF-P" "TN-REF-TARGET"
"TN-REF-TN" "TN-REF-VOP" "TN-REF-WRITE-P" "TN-SC" "TN-VALUE"
"TRACE-TABLE-ENTRY" "TYPE-CHECK-ERROR" "UNBIND" "UNBIND-TO-HERE"
- "UNSAFE" "UNWIND" "UWP-ENTRY"
+ "UNSAFE" "UNSAFELY-FLUSHABLE" "UNWIND" "UWP-ENTRY"
"VERIFY-ARG-COUNT" "WRITE-PACKED-BIT-VECTOR"
"WRITE-VAR-INTEGER" "WRITE-VAR-STRING" "XEP-ALLOCATE-FRAME"
"LABEL-ID" "FIXUP" "FIXUP-FLAVOR" "FIXUP-NAME" "FIXUP-OFFSET"
"NOTE-FIXUP"
"DEF-CASSER"
"DEF-REFFER"
+ "EMIT-CONSTANT"
"EMIT-NOP"
"DEF-SETTER"
"FIXED-ALLOC"
"MAKE-FUNCALLABLE-INSTANCE-TRAMP"
"RETURN-SINGLE"
"NOTE-NEXT-INSTRUCTION"
- "SET-SLOT"
+ "SET-SLOT" "INIT-SLOT"
"LOCATION-NUMBER"
"*COMPONENT-BEING-COMPILED*"
"BLOCK-NUMBER"
- "BACKEND"
"IR2-BLOCK-BLOCK"
"VOP-BLOCK"
"*ASSEMBLY-OPTIMIZE*"
- "LARGE-ALLOC"
- "%SET-SIMPLE-FUN-SELF"
- "VM-SUPPORT-ROUTINES-IMMEDIATE-CONSTANT-SC"
- "VM-SUPPORT-ROUTINES-LOCATION-PRINT-NAME"
- "VM-SUPPORT-ROUTINES-PRIMITIVE-TYPE-OF"
- "VM-SUPPORT-ROUTINES-PRIMITIVE-TYPE"
- "VM-SUPPORT-ROUTINES-MAKE-CALL-OUT-TNS"
- "VM-SUPPORT-ROUTINES-STANDARD-ARG-LOCATION"
- "VM-SUPPORT-ROUTINES-MAKE-RETURN-PC-PASSING-LOCATION"
- "VM-SUPPORT-ROUTINES-MAKE-OLD-FP-PASSING-LOCATION"
- "VM-SUPPORT-ROUTINES-MAKE-OLD-FP-SAVE-LOCATION"
- "VM-SUPPORT-ROUTINES-MAKE-RETURN-PC-SAVE-LOCATION"
- "VM-SUPPORT-ROUTINES-MAKE-ARG-COUNT-LOCATION"
- "VM-SUPPORT-ROUTINES-MAKE-NFP-TN"
- "VM-SUPPORT-ROUTINES-MAKE-STACK-POINTER-TN"
- "VM-SUPPORT-ROUTINES-MAKE-NUMBER-STACK-POINTER-TN"
- "VM-SUPPORT-ROUTINES-MAKE-UNKNOWN-VALUES-LOCATIONS"
- "VM-SUPPORT-ROUTINES-SELECT-COMPONENT-FORMAT"
- "VM-SUPPORT-ROUTINES-MAKE-NLX-SP-TN"
- "VM-SUPPORT-ROUTINES-MAKE-DYNAMIC-STATE-TNS"
- "VM-SUPPORT-ROUTINES-MAKE-NLX-ENTRY-ARG-START-LOCATION"
- "VM-SUPPORT-ROUTINES-GENERATE-CALL-SEQUENCE"
- "VM-SUPPORT-ROUTINES-GENERATE-RETURN-SEQUENCE"
- "VM-SUPPORT-ROUTINES-EMIT-NOP"
- "VM-SUPPORT-ROUTINES-LOCATION-NUMBER"
+
+ "IMMEDIATE-CONSTANT-SC"
+ "BOXED-IMMEDIATE-SC-P"
+ "COMBINATION-IMPLEMENTATION-STYLE"
+ "CONVERT-CONDITIONAL-MOVE-P"
+ "LOCATION-PRINT-NAME"
+ "PRIMITIVE-TYPE-OF"
+ "PRIMITIVE-TYPE"
+ "MAKE-CALL-OUT-TNS"
+ "STANDARD-ARG-LOCATION"
+ "MAKE-RETURN-PC-PASSING-LOCATION"
+ "MAKE-OLD-FP-PASSING-LOCATION"
+ "MAKE-OLD-FP-SAVE-LOCATION"
+ "MAKE-RETURN-PC-SAVE-LOCATION"
+ "MAKE-ARG-COUNT-LOCATION"
+ "MAKE-NFP-TN"
+ "MAKE-STACK-POINTER-TN"
+ "MAKE-NUMBER-STACK-POINTER-TN"
+ "MAKE-UNKNOWN-VALUES-LOCATIONS"
+ "SELECT-COMPONENT-FORMAT"
+ "MAKE-NLX-SP-TN"
+ "MAKE-DYNAMIC-STATE-TNS"
+ "MAKE-NLX-ENTRY-ARG-START-LOCATION"
+ "GENERATE-CALL-SEQUENCE"
+ "GENERATE-RETURN-SEQUENCE"
+ "LOCATION-NUMBER"
"WITH-SOURCE-LOCATION"
- "*SOURCE-LOCATION-THUNKS*"))
+ "*SOURCE-LOCATION-THUNKS*"
+
+ "BRANCH-IF"))
#s(sb-cold:package-data
:name "SB!DEBUG"
like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
:use ("CL" "SB!EXT" "SB!INT" "SB!SYS" "SB!KERNEL")
:reexport ("*DEBUG-PRINT-VARIABLE-ALIST*")
- :export ("*DEBUG-BEGINNER-HELP-P*"
+ :export ("*BACKTRACE-FRAME-COUNT*"
+ "*DEBUG-BEGINNER-HELP-P*"
"*DEBUG-CONDITION*"
"*DEBUG-READTABLE*" "*DEBUG-HELP-STRING*"
"*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*"
- "*SHOW-ENTRY-POINT-DETAILS*"
+ "*METHOD-FRAME-STYLE*"
"*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*"
- "*TRACE-FRAME*" "*TRACED-FUN-LIST*"
- "ARG" "BACKTRACE" "BACKTRACE-AS-LIST" "INTERNAL-DEBUG" "VAR"
- "*PRINT-LOCATION-KIND*"
- "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
- "*TRACE-VALUES*" "DO-DEBUG-COMMAND"
+ "ARG"
+ "INTERNAL-DEBUG" "VAR"
+ "*STACK-TOP-HINT*"
+ "*TRACE-VALUES*"
"*TRACE-ENCAPSULATE-DEFAULT*"
"FRAME-HAS-DEBUG-TAG-P"
- "UNWIND-TO-FRAME-AND-CALL"))
+ "UNWIND-TO-FRAME-AND-CALL"
+ ;; Deprecated
+ "BACKTRACE" "BACKTRACE-AS-LIST" "*SHOW-ENTRY-POINT-DETAILS*"
+ ;; Replaced by
+ "PRINT-BACKTRACE" "LIST-BACKTRACE"))
#s(sb-cold:package-data
:name "SB!DI"
:doc "private: primitives used to write debuggers"
:use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!VM")
:import-from (("SB!C"
- "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME"
+ "DEBUG-SOURCE-FORM" "DEBUG-SOURCE-NAMESTRING"
"DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
"DEBUG-SOURCE-START-POSITIONS" "MAKE-DEBUG-SOURCE"
"DEBUG-SOURCE" "DEBUG-SOURCE-P"))
- :reexport ("DEBUG-SOURCE-FROM"
- "DEBUG-SOURCE-NAME"
+ :reexport ("DEBUG-SOURCE-FORM"
+ "DEBUG-SOURCE-NAMESTRING"
"DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
"DEBUG-SOURCE-START-POSITIONS" "DEBUG-SOURCE"
"DEBUG-SOURCE-P")
"DEBUG-VAR-SYMBOL-NAME" "DEBUG-VAR-P" "DEBUG-VAR-PACKAGE-NAME"
"DEBUG-VAR-SYMBOL" "DEBUG-VAR-VALID-VALUE"
"DEBUG-VAR-VALIDITY" "DEBUG-VAR-VALUE"
- "DELETE-BREAKPOINT" "DO-BLOCKS"
+ "DELETE-BREAKPOINT"
"DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUN-BLOCKS"
"DO-DEBUG-FUN-VARS"
"FORM-NUMBER-TRANSLATIONS"
"FRAME" "FRAME-CATCHES" "FRAME-CODE-LOCATION"
"FRAME-DEBUG-FUN" "FRAME-DOWN"
"FRAME-FUN-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP"
+ "GET-TOPLEVEL-FORM"
"REPLACE-FRAME-CATCH-TAG"
"FUN-DEBUG-FUN" "FUN-END-COOKIE-VALID-P"
"INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE"
"LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS"
- "NO-DEBUG-FUN-RETURNS" "NO-DEBUG-INFO" "PREPROCESS-FOR-EVAL"
- "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT"
- "TOP-FRAME" "UNHANDLED-DEBUG-CONDITION" "UNKNOWN-CODE-LOCATION"
- "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VAR"
+ "NO-DEBUG-FUN-RETURNS" "PREPROCESS-FOR-EVAL"
+ "EVAL-IN-FRAME" "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT"
+ "TOP-FRAME" "UNHANDLED-DEBUG-CONDITION"
+ "UNKNOWN-DEBUG-VAR"
"CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE"))
#s(sb-cold:package-data
:use ("CL" "SB!EXT" "SB!INT")
:export ("*DISASSEM-INST-ALIGNMENT-BYTES*"
"*DISASSEM-NOTE-COLUMN*" "*DISASSEM-OPCODE-COLUMN-WIDTH*"
- "*DISASSEM-SCHEDULER-P*" "*DISASSEM-LOCATION-COLUMN-WIDTH*"
- "ADD-COMMENT-HOOK" "ADD-HOOK" "ADD-NOTE-HOOK"
- "ARG-VALUE" "CREATE-DSTATE" "DISASSEM-STATE"
+ "*DISASSEM-LOCATION-COLUMN-WIDTH*"
+ "ARG-VALUE" "DISASSEM-STATE"
"DISASSEMBLE-CODE-COMPONENT"
"DISASSEMBLE-FUN" "DISASSEMBLE-MEMORY"
"DISASSEMBLE-SEGMENT" "DISASSEMBLE-SEGMENTS"
- "DSTATE-CODE" "DSTATE-CURPOS" "DSTATE-GET-INST-PROP"
+ "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"
- "GEN-INST-DECL-FORM" "GEN-INST-FORMAT-DECL-FORM"
+ "DSTATE-SEGMENT-SAP"
+ "FIND-INST"
"GET-CODE-SEGMENTS" "GET-FUN-SEGMENTS"
"GET-INST-SPACE" "HANDLE-BREAK-ARGS"
- "INST" "INST-FORMAT" "LABEL-SEGMENTS"
+ "LABEL-SEGMENTS"
"MAYBE-NOTE-ASSEMBLER-ROUTINE"
"MAYBE-NOTE-ASSOCIATED-STORAGE-REF"
"MAYBE-NOTE-NIL-INDEXED-OBJECT"
"MAYBE-NOTE-SINGLE-STORAGE-REF" "NOTE"
"NOTE-CODE-CONSTANT" "PARAMS" "PRIN1-QUOTED-SHORT"
"PRIN1-SHORT" "PRINT-BYTES"
- "PRINT-CURRENT-ADDRESS" "PRINT-FIELD" "PRINT-INST"
- "PRINT-INST-USING" "PRINT-NOTES-AND-NEWLINE"
- "PRINT-WORDS" "SAP-REF-DCHUNK" "SEG-DEBUG-FUN"
- "SEG-LENGTH" "SEG-START" "SEGMENT"
- "SET-ADDRESS-PRINTING-RANGE" "SET-DISASSEM-PARAMS"
- "SET-DSTATE-SEGMENT" "SIGN-EXTEND" "SPECIALIZE"
+ "PRINT-CURRENT-ADDRESS" "PRINT-INST"
+ "PRINT-NOTES-AND-NEWLINE"
+ "PRINT-WORDS" "SAP-REF-DCHUNK"
+ "SEG-LENGTH" "SEGMENT"
+ "SET-DISASSEM-PARAMS"
+ "SIGN-EXTEND" "SPECIALIZE"
"GEN-PRINTER-DEF-FORMS-DEF-FORM" "MAKE-DSTATE"
"DEFINE-ARG-TYPE" "GEN-ARG-TYPE-DEF-FORM"
"READ-SIGNED-SUFFIX" "ADD-OFFS-HOOK"
"MAKE-MEMORY-SEGMENT" "GEN-PREAMBLE-FORM"
- "MAKE-SEGMENT" "SEGMENT-OVERFLOW"
- "SEG-VIRTUAL-LOCATION" "MAKE-DECODED-INST"
+ "MAKE-SEGMENT" "SEG-VIRTUAL-LOCATION"
"DCHUNK" "*DEFAULT-DSTATE-HOOKS*"
"MAKE-CODE-SEGMENT" "MAKE-OFFS-HOOK"
"DSTATE-SEGMENT" "DSTATE-CUR-OFFS"
"PRINC16" "INSTRUCTION" "DEFINE-INSTRUCTION-FORMAT"
"DSTATE-NEXT-OFFS" "INSTALL-INST-FLAVORS"
"SEG-SAP-MAKER" "DISASSEMBLE-ASSEM-SEGMENT"
- "GEN-CLEAR-INFO-FORM" "READ-SUFFIX"
+ "READ-SUFFIX"
"MAP-SEGMENT-INSTRUCTIONS" "GEN-FORMAT-DEF-FORM"
"SET-LOCATION-PRINTING-RANGE" "MAKE-VECTOR-SEGMENT"
"ADD-OFFS-NOTE-HOOK" "ADD-OFFS-COMMENT-HOOK"
"BUILD-ID-CORE-ENTRY-TYPE-CODE"
"*FASL-FILE-TYPE*"
"CLOSE-FASL-OUTPUT"
+ "DEFLATED-CORE-SPACE-ID-FLAG"
"DUMP-ASSEMBLER-ROUTINES"
"DUMP-OBJECT"
"DYNAMIC-CORE-SPACE-ID"
"END-CORE-ENTRY-TYPE-CODE"
"FASL-CONSTANT-ALREADY-DUMPED-P"
"+FASL-FILE-VERSION+"
- "FASL-DUMP-COLD-LOAD-FORM" "FASL-DUMP-COMPONENT"
+ "FASL-DUMP-COMPONENT"
"FASL-DUMP-COLD-FSET"
"FASL-DUMP-LOAD-TIME-VALUE" "FASL-DUMP-LOAD-TIME-VALUE-LAMBDA"
"FASL-DUMP-SOURCE-INFO" "FASL-DUMP-TOPLEVEL-LAMBDA-CALL"
"FASL-VALIDATE-STRUCTURE"
"INITIAL-FUN-CORE-ENTRY-TYPE-CODE"
"*!LOAD-TIME-VALUES*"
- "LOAD-TYPE-PREDICATE"
- #!+(and sb-thread sb-lutex) "LUTEX-TABLE-CORE-ENTRY-TYPE-CODE"
+ "MAX-CORE-SPACE-ID"
+ ;; FIXME: this are listed here so that genesis
+ ;; puts them into .h files, but they are not present in the resulting core
"NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE"
"OPEN-FASL-OUTPUT" "PAGE-TABLE-CORE-ENTRY-TYPE-CODE"
"READ-ONLY-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*" "*CORE-PATHNAME*"
+ "*POSIX-ARGV*" "*CORE-PATHNAME*" "*RUNTIME-PATHNAME*"
"POSIX-GETENV" "POSIX-ENVIRON"
+ ;; Customizing initfile locations
+ "*USERINIT-PATHNAME-FUNCTION*"
+ "*SYSINIT-PATHNAME-FUNCTION*"
+
+ ;; Compare and Swap support
+ "CAS"
"COMPARE-AND-SWAP"
+ "DEFCAS"
+ "DEFINE-CAS-EXPANDER"
+ "GET-CAS-EXPANSION"
+
+ ;; Other atomic operations and types related to them
+ "ATOMIC-INCF"
+ "ATOMIC-DECF"
+ "ATOMIC-UPDATE"
+ "ATOMIC-PUSH"
+ "ATOMIC-POP"
+ "WORD"
+ "MOST-POSITIVE-WORD"
+
+ ;; Not an atomic operation, but should be used with them
+ "SPIN-LOOP-HINT"
+
+ ;; Waiting for arbitrary events.
+ "WAIT-FOR"
+
+ ;; Time related things
+ "CALL-WITH-TIMING"
+ "GET-TIME-OF-DAY"
;; People have various good reasons to mess with the GC.
"*AFTER-GC-HOOKS*"
"BYTES-CONSED-BETWEEN-GCS"
- "GC" "GC-OFF" "GC-ON" "GET-BYTES-CONSED"
+ "GC" "GET-BYTES-CONSED"
"*GC-RUN-TIME*"
"PURIFY"
+ "DYNAMIC-SPACE-SIZE"
+ ;; Gencgc only, but symbols exist for manual building
+ ;; convenience on all platforms.
+ "GENERATION-AVERAGE-AGE"
+ "GENERATION-BYTES-ALLOCATED"
+ "GENERATION-BYTES-CONSED-BETWEEN-GCS"
+ "GENERATION-MINIMUM-AGE-BEFORE-GC"
+ "GENERATION-NUMBER-OF-GCS"
+ "GENERATION-NUMBER-OF-GCS-BEFORE-PROMOTION"
+ "GC-LOGFILE"
+
+ ;; Stack allocation control
+ "*STACK-ALLOCATE-DYNAMIC-EXTENT*"
;; Customizing printing of compiler and debugger messages
"*COMPILER-PRINT-VARIABLE-ALIST*"
;; Hooks into init & save sequences
"*INIT-HOOKS*" "*SAVE-HOOKS*" "*EXIT-HOOKS*"
+ ;; Controlling exiting other threads.
+ "*EXIT-TIMEOUT*"
+
;; There is no one right way to report progress on
;; hairy compiles.
"*COMPILE-PROGRESS*"
"DEFCONSTANT-UNEQL" "DEFCONSTANT-UNEQL-NAME"
"DEFCONSTANT-UNEQL-NEW-VALUE" "DEFCONSTANT-UNEQL-OLD-VALUE"
- ;; package-locking stuff
+ ;; global lexicals, access to global symbol values
+ "DEFGLOBAL"
+ "SYMBOL-GLOBAL-VALUE"
+
+ ;; package extensions
+ ;;
+ ;; locks
#!+sb-package-locks "PACKAGE-LOCKED-P"
#!+sb-package-locks "LOCK-PACKAGE"
#!+sb-package-locks "UNLOCK-PACKAGE"
"WITHOUT-PACKAGE-LOCKS"
"DISABLE-PACKAGE-LOCKS"
"ENABLE-PACKAGE-LOCKS"
+ ;; local nicknames
+ "ADD-PACKAGE-LOCAL-NICKNAME"
+ "REMOVE-PACKAGE-LOCAL-NICKNAME"
+ "PACKAGE-LOCAL-NICKNAMES"
+ "PACKAGE-LOCALLY-NICKNAMED-BY-LIST"
+ ;; behaviour on DEFPACKAGE variance
+ "*ON-PACKAGE-VARIANCE*"
;; Custom conditions & condition accessors for users to handle.
"CODE-DELETION-NOTE"
"IMPLICIT-GENERIC-FUNCTION-NAME"
"IMPLICIT-GENERIC-FUNCTION-WARNING"
"INVALID-FASL"
+ "DEPRECATION-CONDITION"
"NAME-CONFLICT" "NAME-CONFLICT-FUNCTION"
"NAME-CONFLICT-DATUM" "NAME-CONFLICT-SYMBOLS"
"RESOLVE-CONFLICT"
+ "PRINT-UNREADABLY"
+
;; and a mechanism for controlling same at compile time
"MUFFLE-CONDITIONS" "UNMUFFLE-CONDITIONS"
+ ;; and one for controlling same at runtime
+ "*MUFFLED-WARNINGS*"
+
+ ;; specification which print errors to ignore ala *break-on-signal*
+ "*SUPPRESS-PRINT-ERRORS*"
+
;; extended declarations..
- "FREEZE-TYPE" "INHIBIT-WARNINGS"
+ "ALWAYS-BOUND" "FREEZE-TYPE" "GLOBAL" "INHIBIT-WARNINGS"
"MAYBE-INLINE"
;; ..and variables to control compiler policy
;; are assertions" default
"TRULY-THE"
+ ;; Misc. array and vector tools.
+ "ARRAY-STORAGE-VECTOR"
+
;; This is something which must exist inside any Common
;; Lisp implementation, and which someone writing a
;; customized toplevel might well want. It seems perverse
;; to hide it from them..
"INTERACTIVE-EVAL"
+ ;; Used by LOAD and EVAL-WHEN to pass toplevel indexes
+ ;; to compiler.
+ "EVAL-TLF"
+
;; weak pointers and finalization
"CANCEL-FINALIZATION"
"FINALIZE"
- "HASH-TABLE-WEAKNESS" "MAKE-WEAK-POINTER"
- "WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
+ "MAKE-WEAK-POINTER"
+ "WEAK-POINTER"
+ "WEAK-POINTER-P"
+ "WEAK-POINTER-VALUE"
- ;; Hash table locking
+ ;; Hash table extensions
+ "DEFINE-HASH-TABLE-TEST"
"HASH-TABLE-SYNCHRONIZED-P"
+ "HASH-TABLE-WEAKNESS"
"WITH-LOCKED-HASH-TABLE"
;; If the user knows we're doing IEEE, he might reasonably
"*INVOKE-DEBUGGER-HOOK*"
;; miscellaneous useful supported extensions
- "QUIT"
+ "QUIT" "EXIT"
"*ED-FUNCTIONS*"
"*MODULE-PROVIDER-FUNCTIONS*"
+ "MAP-DIRECTORY"
"WITH-TIMEOUT" "TIMEOUT"
+ "SEED-RANDOM-STATE"
+ "TYPEXPAND-1" "TYPEXPAND" "TYPEXPAND-ALL"
+ "DEFINED-TYPE-NAME-P" "VALID-TYPE-SPECIFIER-P"
+ "DELETE-DIRECTORY"
+ "SET-SBCL-SOURCE-LOCATION"
+ "*DISASSEMBLE-ANNOTATE*"
+ "PRINT-SYMBOL-WITH-PREFIX"
;; stepping interface
"STEP-CONDITION" "STEP-FORM-CONDITION" "STEP-FINISHED-CONDITION"
;; timer
"TIMER" "MAKE-TIMER" "TIMER-NAME" "TIMER-SCHEDULED-P"
- "SCHEDULE-TIMER" "UNSCHEDULE-TIMER" "LIST-ALL-TIMERS"))
+ "SCHEDULE-TIMER" "UNSCHEDULE-TIMER" "LIST-ALL-TIMERS"
+
+ ;; SIMD pack
+ #!+sb-simd-pack "SIMD-PACK"
+ #!+sb-simd-pack "SIMD-PACK-P"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-UB32"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-UB64"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-DOUBLE"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-SINGLE"
+ #!+sb-simd-pack "%SIMD-PACK-UB32S"
+ #!+sb-simd-pack "%SIMD-PACK-UB64S"
+ #!+sb-simd-pack "%SIMD-PACK-DOUBLES"
+ #!+sb-simd-pack "%SIMD-PACK-SINGLES"))
#s(sb-cold:package-data
:name "SB!FORMAT"
"FP-ZERO-P"
"NEG-FP-ZERO"
+ ;; Stack allocation without any questions asked
+ "TRULY-DYNAMIC-EXTENT"
+
+ ;; Like WITH-LOCKED-HASH-TABLE, but disabled interrupts
+ "WITH-LOCKED-SYSTEM-TABLE"
+
;; generic set implementation
"ADD-TO-XSET"
"ALLOC-XSET"
"INFO"
"MAKE-INFO-ENVIRONMENT"
- ;; GENSYM variant that appends the current non-nil block
- ;; name to the string if possible
- "BLOCK-GENSYM"
-
;; Calling a list of hook functions, plus error handling.
"CALL-HOOKS"
"CONSTANT-TYPEP"
;; stepping control
- "*STEPPING*" "*STEP*"
+ "*STEPPING*"
;; packages grabbed once and for all
"*KEYWORD-PACKAGE*" "*CL-PACKAGE*"
;; hash mixing operations
"MIX" "MIXF"
+ ;; Macroexpansion that doesn't touch special forms
+ "%MACROEXPAND"
+ "%MACROEXPAND-1"
+
;; I'm not convinced that FDEFINITIONs are the ideal
;; solution, so exposing ways to peek into the system
;; seems undesirable, since it makes it harder to get
"*SETF-FDEFINITION-HOOK*"
;; error-reporting facilities
+ "ARGUMENTS-OUT-OF-DOMAIN-ERROR"
+ "BAD-TYPE"
+ "CLOSED-STREAM-ERROR"
"COMPILED-PROGRAM-ERROR"
+ "COMPILER-MACRO-KEYWORD-PROBLEM"
"ENCAPSULATED-CONDITION"
"INTERPRETED-PROGRAM-ERROR"
+ "INVALID-ARRAY-ERROR"
+ "INVALID-ARRAY-INDEX-ERROR"
+ "INVALID-ARRAY-P"
"SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
"SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR"
- "SIMPLE-READER-ERROR" "SIMPLE-READER-PACKAGE-ERROR"
+ "SIMPLE-READER-ERROR"
+ "SIMPLE-READER-PACKAGE-ERROR"
+ "SIMPLE-REFERENCE-ERROR"
+ "SIMPLE-REFERENCE-WARNING"
"SIMPLE-STREAM-ERROR"
"SIMPLE-STORAGE-CONDITION"
"SIMPLE-STYLE-WARNING"
"TRY-RESTART"
;; error-signalling facilities
+ "STANDARD-READTABLE-MODIFIED-ERROR"
+ "STANDARD-PPRINT-DISPATCH-TABLE-MODIFIED-ERROR"
"ARRAY-BOUNDING-INDICES-BAD-ERROR"
+ "CIRCULAR-LIST-ERROR"
"SEQUENCE-BOUNDING-INDICES-BAD-ERROR"
-
"SPECIAL-FORM-FUNCTION"
"STYLE-WARN" "SIMPLE-COMPILER-NOTE"
"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"
+ "C-STRING-ENCODING-ERROR"
+ "C-STRING-DECODING-ERROR"
"ATTEMPT-RESYNC" "FORCE-END-OF-FILE"
;; bootstrapping magic, to make things happen both in
"SBCL-HOMEDIR-PATHNAME"
"SIMPLIFY-NAMESTRING"
- ;; PCOUNTERs
- "FASTBIG-INCF-PCOUNTER-OR-FIXNUM"
- "INCF-PCOUNTER"
- "INCF-PCOUNTER-OR-FIXNUM"
- "MAKE-PCOUNTER"
- "PCOUNTER"
- "PCOUNTER->INTEGER"
- "PCOUNTER-OR-FIXNUM->INTEGER"
- "PCOUNTER-P"
"*N-BYTES-FREED-OR-PURIFIED*"
+ ;; Deprecating stuff
+ "DEFINE-DEPRECATED-FUNCTION"
+ "DEFINE-DEPRECATED-VARIABLE"
+ "DEPRECATED-VARIABLE"
+ "CHECK-DEPRECATED-VARIABLE"
+ "EARLY-DEPRECATION-WARNING"
+ "LATE-DEPRECATION-WARNING"
+ "FINAL-DEPRECATION-WARNING"
+ "DEPRECATION-WARNING"
+ "DEPRECATION-ERROR"
+
;; miscellaneous non-standard but handy user-level functions..
"ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
"ADJUST-LIST"
"PSXHASH"
"%BREAK"
"NTH-BUT-WITH-SANE-ARG-ORDER"
- "DEPRECATION-WARNING"
"BIT-VECTOR-="
"READ-EVALUATED-FORM"
"MAKE-UNPRINTABLE-OBJECT"
+ "POWER-OF-TWO-CEILING"
+ "PRINT-NOT-READABLE-ERROR"
;; ..and macros..
"COLLECT"
- "DO-ANONYMOUS" "DOHASH" "DOVECTOR"
+ "DO-ANONYMOUS" "DOVECTOR" "DOHASH" "DOPLIST"
"NAMED-LET"
"ONCE-ONLY"
"DEFENUM"
"!DEF-BOOLEAN-ATTRIBUTE"
"WITH-REBOUND-IO-SYNTAX"
"WITH-SANE-IO-SYNTAX"
+ "WITH-PROGRESSIVE-TIMEOUT"
;; ..and CONDITIONs..
"BUG"
"*PRINT-CONDITION-REFERENCES*"
"DUPLICATE-DEFINITION" "DUPLICATE-DEFINITION-NAME"
- "PACKAGE-AT-VARIANCE" "ARRAY-INITIAL-ELEMENT-MISMATCH"
- "TYPE-WARNING" "LOCAL-ARGUMENT-MISMATCH"
+ "PACKAGE-AT-VARIANCE"
+ "PACKAGE-AT-VARIANCE-ERROR"
+ "ARRAY-INITIAL-ELEMENT-MISMATCH"
+ "TYPE-WARNING" "TYPE-STYLE-WARNING"
+ "LOCAL-ARGUMENT-MISMATCH"
"FORMAT-ARGS-MISMATCH" "FORMAT-TOO-FEW-ARGS-WARNING"
"FORMAT-TOO-MANY-ARGS-WARNING" "EXTENSION-FAILURE"
"STRUCTURE-INITARG-NOT-KEYWORD" "CONSTANT-MODIFIED"
;; ..and DEFTYPEs..
+ "MAX-HASH" "HASH"
"INDEX" "LOAD/STORE-INDEX"
"SIGNED-BYTE-WITH-A-BITE-OUT"
"UNSIGNED-BYTE-WITH-A-BITE-OUT"
"SFUNCTION" "UNSIGNED-BYTE*"
"CONSTANT-DISPLACEMENT"
;; ..and type predicates
- "INSTANCEP"
"DOUBLE-FLOAT-P"
"LOGICAL-PATHNAME-P"
"LONG-FLOAT-P"
"RETURN-CHAR-CODE" "RUBOUT-CHAR-CODE" "TAB-CHAR-CODE"
;; symbol-hacking idioms
- "KEYWORDICATE" "SYMBOLICATE"
+ "GENSYMIFY" "KEYWORDICATE" "SYMBOLICATE"
;; certainly doesn't belong in public extensions
;; FIXME: maybe belongs in %KERNEL with other typesystem stuff?
"CONSTANT-ARG"
;; various internal defaults
- "DEFAULT-INIT-CHAR" "*DEFAULT-INIT-CHAR-FORM*"
+ "*DEFAULT-INIT-CHAR-FORM*"
"*LOAD-SOURCE-DEFAULT-TYPE*" "BASE-CHAR-CODE-LIMIT"
;; hash caches
"DEFINE-HASH-CACHE"
"DEFUN-CACHED"
"DEFINE-CACHED-SYNONYM"
+ "DROP-ALL-HASH-CACHES"
;; time
"FORMAT-DECODED-TIME"
"FORMAT-UNIVERSAL-TIME"
- ;; indenting
- "MAKE-INDENTING-STREAM"
-
- ;; stream commands, used by the debugger
- "GET-STREAM-COMMAND" "MAKE-STREAM-COMMAND" "STREAM-COMMAND"
- "STREAM-COMMAND-ARGS" "STREAM-COMMAND-NAME" "STREAM-COMMAND-P"
-
;; used for FORMAT tilde paren
"MAKE-CASE-FROB-STREAM"
"/XHOW" "/NOXHOW"
"/SHOW0" "/NOSHOW0"
"/HEXSTR" "/NOHEXSTR"
- "/PRIMITIVE-PRINT" "/NO-PRIMITIVE-PRINT"
+ "/PRIMITIVE-PRINT"
;; cross-compilation bootstrap hacks which turn into
;; placeholders in a target system
"LISTEN-SKIP-WHITESPACE"
"PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT"
"PARSE-BODY" "PARSE-LAMBDA-LIST" "PARSE-LAMBDA-LIST-LIKE-THING"
- "PROPER-LIST-OF-LENGTH-P"
+ "PROPER-LIST-OF-LENGTH-P" "PROPER-LIST-P"
"LIST-OF-LENGTH-AT-LEAST-P"
"LIST-WITH-LENGTH-P"
"SINGLETON-P"
- "READ-SEQUENCE-OR-DIE"
- "RENAME-KEY-ARGS"
- "MISSING-ARG"
- "UNIX-NAMESTRING" ; FIXME: perhaps belongs in package SB!UNIX
+ "MISSING-ARG"
"FEATUREP"
"FLUSH-STANDARD-OUTPUT-STREAMS"
"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"
"POSITIVE-PRIMEP"
"EVAL-IN-LEXENV"
"SIMPLE-EVAL-IN-LEXENV"
- "DEBUG-NAMIFY"
"FORCE" "DELAY" "PROMISE-READY-P"
"FIND-RESTART-OR-CONTROL-ERROR"
+ "LOAD-AS-SOURCE"
;; These could be moved back into SB!EXT if someone has
;; compelling reasons, but hopefully we can get by
"GET-FLOATING-POINT-MODES"
"SET-FLOATING-POINT-MODES"
"WITH-FLOAT-TRAPS-MASKED"
- "DEFINE-HASH-TABLE-TEST"
;; compatibility hacks for old-style CMU CL data formats
"UNIX-ENVIRONMENT-CMUCL-FROM-SBCL"
"+EMPTY-HT-SLOT+"
;; low-level i/o stuff
- "DONE-WITH-FAST-READ-BYTE"
"DONE-WITH-FAST-READ-CHAR"
"FAST-READ-BYTE"
"FAST-READ-BYTE-REFILL"
"FAST-READ-VAR-U-INTEGER"
"FILE-NAME"
"INTERN*"
- "PREPARE-FOR-FAST-READ-BYTE"
+ "WITH-FAST-READ-BYTE"
"PREPARE-FOR-FAST-READ-CHAR"
;; reflection of our backquote implementation that the
;; other sequence function implementation grot into SB-SEQ.
;; * Pull all the math stuff (%ACOS, %COSH, WORD-LOGICAL-AND...)
;; into SB-MATH.
- ;; * Pull all the array stuff (%ARRAY-DATA-VECTOR, %RAW-REF-LONG,
+ ;; * Pull all the array stuff (%ARRAY-DATA-VECTOR,
;; WITH-ARRAY-DATA, ALLOCATE-VECTOR, HAIRY-DATA-VECTOR-REF...)
;; into SB-ARRAY.
;; * Pull all the streams stuff out into SB-STREAM.
is a good idea, but see SB-SYS re. blurring of boundaries."
:use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!BIGNUM"
"SB!EXT" "SB!FASL" "SB!INT" "SB!SYS" "SB!GRAY")
- :reexport ("DEF!STRUCT" "DEF!MACRO")
+ :reexport ("DEF!STRUCT"
+ "DEF!MACRO"
+ #!+sb-simd-pack "SIMD-PACK"
+ #!+sb-simd-pack "SIMD-PACK-P"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-UB32"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-UB64"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-DOUBLE"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-SINGLE"
+ #!+sb-simd-pack "%SIMD-PACK-UB32S"
+ #!+sb-simd-pack "%SIMD-PACK-UB64S"
+ #!+sb-simd-pack "%SIMD-PACK-DOUBLES"
+ #!+sb-simd-pack "%SIMD-PACK-SINGLES")
:export ("%ACOS"
- "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR"
+ "%ACOSH"
+ "%ADJOIN"
+ "%ADJOIN-EQ"
+ "%ADJOIN-KEY"
+ "%ADJOIN-KEY-EQ"
+ "%ADJOIN-KEY-TEST"
+ "%ADJOIN-KEY-TEST-NOT"
+ "%ADJOIN-TEST"
+ "%ADJOIN-TEST-NOT"
+ "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR"
"%ARRAY-DIMENSION" "%ARRAY-DISPLACED-P"
+ "%ARRAY-DISPLACED-FROM"
"%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER"
"%ARRAY-FILL-POINTER-P" "%ARRAY-RANK"
+ #!+(or x86 x86-64 ppc)
+ "%ARRAY-ATOMIC-INCF/WORD"
+ #!+ash-right-vops "%ASH/RIGHT"
"%ASSOC"
+ "%ASSOC-EQ"
+ "%ASSOC-IF"
+ "%ASSOC-IF-KEY"
+ "%ASSOC-IF-NOT"
+ "%ASSOC-IF-NOT-KEY"
"%ASSOC-KEY"
+ "%ASSOC-KEY-EQ"
"%ASSOC-KEY-TEST"
"%ASSOC-KEY-TEST-NOT"
"%ASSOC-TEST"
"%ASSOC-TEST-NOT"
"%ASIN" "%ASINH"
- "%ATAN" "%ATAN2" "%ATANH" "%CALLER-FRAME-AND-PC"
+ "%ATAN" "%ATAN2" "%ATANH"
+ "%CALLER-FRAME"
+ "%CALLER-PC"
+ "%CEILING"
"%CHECK-BOUND"
"%CHECK-GENERIC-SEQUENCE-BOUNDS"
"%CHECK-VECTOR-SEQUENCE-BOUNDS"
- "%CLOSURE-FUN" "%CLOSURE-INDEX-REF"
"%COMPARE-AND-SWAP-CAR"
"%COMPARE-AND-SWAP-CDR"
"%COMPARE-AND-SWAP-INSTANCE-REF"
"%COMPARE-AND-SWAP-SVREF"
"%COMPARE-AND-SWAP-SYMBOL-PLIST"
"%COMPARE-AND-SWAP-SYMBOL-VALUE"
+ "%CONCATENATE-TO-BASE-STRING"
+ "%CONCATENATE-TO-STRING"
"%COS" "%COS-QUICK"
"%COSH" "%DATA-VECTOR-AND-INDEX" "%DEPOSIT-FIELD"
- "%DOUBLE-FLOAT" "%DPB" "%EQL" "%EXP" "%EXPM1" "%FIND-POSITION"
+ "%DOUBLE-FLOAT" "%DPB" "%EQL"
+ "%EXIT"
+ "%EXP" "%EXPM1"
+ "%FLOOR"
+ "%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-FUN"
- "%FUN-NAME"
+ "FIXNUM-MOD-P"
"%HYPOT" "%LDB" "%LOG" "%LOGB" "%LOG10"
+ "%LAST0"
+ "%LAST1"
+ "%LASTN/FIXNUM"
+ "%LASTN/BIGNUM"
"%LOG1P"
#!+long-float "%LONG-FLOAT"
"%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE"
+ "%MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR"
"%MAKE-RATIO" "%MAKE-LISP-OBJ"
+ "%MAKE-INSTANCE"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK"
+ "%MAKE-STRUCTURE-INSTANCE"
+ "%MAKE-STRUCTURE-INSTANCE-ALLOCATOR"
"%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"
+ "%MAP-TO-LIST-ARITY-1"
"%MASK-FIELD"
"%MEMBER"
+ "%MEMBER-EQ"
+ "%MEMBER-IF"
+ "%MEMBER-IF-KEY"
+ "%MEMBER-IF-NOT"
+ "%MEMBER-IF-NOT-KEY"
"%MEMBER-KEY"
+ "%MEMBER-KEY-EQ"
"%MEMBER-KEY-TEST"
"%MEMBER-KEY-TEST-NOT"
"%MEMBER-TEST"
"%MEMBER-TEST-NOT"
- "%NEGATE" "%POW" "%PUTHASH"
- "%RAW-BITS" "%RAW-BITS-WITH-OFFSET" "%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"
+ "%MULTIPLY-HIGH"
+ "%NEGATE" "%POW"
+ "%OTHER-POINTER-WIDETAG"
+ "%PUTHASH"
+ "%RASSOC"
+ "%RASSOC-EQ"
+ "%RASSOC-IF"
+ "%RASSOC-IF-KEY"
+ "%RASSOC-IF-NOT"
+ "%RASSOC-IF-NOT-KEY"
+ "%RASSOC-KEY"
+ "%RASSOC-KEY-EQ"
+ "%RASSOC-KEY-TEST"
+ "%RASSOC-KEY-TEST-NOT"
+ "%RASSOC-TEST"
+ "%RASSOC-TEST-NOT"
+ "%VECTOR-RAW-BITS"
+ "%SCALB" "%SCALBN"
+ #!+(or x86 x86-64 ppc)
+ "%RAW-INSTANCE-ATOMIC-INCF/WORD"
"%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-DOUBLE"
"%RAW-INSTANCE-SET/COMPLEX-DOUBLE"
"%SET-ARRAY-DIMENSION" "%SET-FUNCALLABLE-INSTANCE-INFO"
- "%SET-RAW-BITS" "%SET-RAW-BITS-WITH-OFFSET"
"%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"
+ "%SET-SAP-REF-LISPOBJ" "%SET-SAP-REF-LONG" "%SET-SAP-REF-SAP"
"%SET-SAP-REF-SINGLE" "%SET-SIGNED-SAP-REF-16"
"%SET-SIGNED-SAP-REF-32" "%SET-SIGNED-SAP-REF-64"
"%SET-SIGNED-SAP-REF-WORD"
"%SET-SYMBOL-HASH"
"%SIN" "%SIN-QUICK" "%SINGLE-FLOAT"
"%SINH" "%SQRT" "%SXHASH-SIMPLE-STRING"
+ #!+sb-simd-pack "%SIMD-PACK-TAG"
+ #!+sb-simd-pack "%SIMD-PACK-LOW"
+ #!+sb-simd-pack "%SIMD-PACK-HIGH"
"%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK" "%TANH"
- "%UNARY-ROUND" "%UNARY-TRUNCATE" "%UNARY-FTRUNCATE"
+ "%UNARY-ROUND"
+ "%UNARY-TRUNCATE"
+ "%UNARY-TRUNCATE/SINGLE-FLOAT"
+ "%UNARY-TRUNCATE/DOUBLE-FLOAT"
+ "%UNARY-FTRUNCATE"
"%WITH-ARRAY-DATA"
"%WITH-ARRAY-DATA/FP"
"%WITH-ARRAY-DATA-MACRO"
+ "*APPROXIMATE-NUMERIC-UNIONS*"
"*CURRENT-LEVEL-IN-PRINT*"
- "*EMPTY-TYPE*" "*GC-INHIBIT*" "*GC-PENDING*"
+ "*EMPTY-TYPE*"
+ "*EVAL-CALLS*"
+ "*GC-INHIBIT*" "*GC-PENDING*"
#!+sb-thread "*STOP-FOR-GC-PENDING*"
"*UNIVERSAL-TYPE*"
"*UNIVERSAL-FUN-TYPE*" "*UNPARSE-FUN-TYPE-SIMPLIFY*"
"PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
"DISABLED-PACKAGE-LOCKS"
"WITH-SINGLE-PACKAGE-LOCKED-ERROR"
- "PACKAGE-ERROR-FORMAT-ARGUMENTS"
- "PACKAGE-ERROR-FORMAT-CONTROL" "ALWAYS-SUBTYPEP"
+ "ALWAYS-SUBTYPEP"
"ARGS-TYPE" "ARGS-TYPE-ALLOWP" "ARGS-TYPE-KEYP"
"ARGS-TYPE-KEYWORDS" "ARGS-TYPE-OPTIONAL" "ARGS-TYPE-P"
"ARGS-TYPE-REQUIRED" "ARGS-TYPE-REST" "ARRAY-HEADER-P"
"ARRAY-TYPE" "ARRAY-TYPE-COMPLEXP"
"ARRAY-TYPE-DIMENSIONS" "ARRAY-TYPE-ELEMENT-TYPE"
"ARRAY-TYPE-P" "ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE"
- "ASH-INDEX" "ASSERT-ERROR"
+ "ASSERT-ERROR"
#!+sb-unicode "BASE-CHAR-P"
"BASE-STRING-P"
"BINDING-STACK-POINTER-SAP" "BIT-INDEX"
"DEFINE-STRUCTURE-SLOT-ADDRESSOR"
"DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P"
"!DEFSTRUCT-WITH-ALTERNATE-METACLASS" "DESCEND-INTO"
- "DISPLACED-TO-ARRAY-TOO-SMALL-ERROR"
"DIVISION-BY-ZERO-ERROR" "DOUBLE-FLOAT-EXPONENT"
"DOUBLE-FLOAT-HIGH-BITS" "DOUBLE-FLOAT-INT-EXPONENT"
"DOUBLE-FLOAT-LOW-BITS" "DOUBLE-FLOAT-SIGNIFICAND"
"FLOAT-WAIT" "DYNAMIC-SPACE-FREE-POINTER" "DYNAMIC-USAGE"
"EFFECTIVE-FIND-POSITION-TEST"
"EFFECTIVE-FIND-POSITION-KEY" "ERROR-NUMBER-OR-LOSE"
- "EXTENDED-CHAR-P"
+ "EXTENDED-CHAR-P" "EXTERNAL-FORMAT-DESIGNATOR"
"FDEFINITION-OBJECT"
"FDOCUMENTATION" "FILENAME"
"FIND-AND-INIT-OR-CHECK-LAYOUT"
"FUN-WORD-OFFSET" "GENERALIZED-BOOLEAN"
"GET-CLOSURE-LENGTH" "GET-HEADER-DATA"
"GET-LISP-OBJ-ADDRESS" "LOWTAG-OF" "WIDETAG-OF"
- "GET-MACHINE-VERSION" "HAIRY-DATA-VECTOR-REF"
+ "HAIRY-DATA-VECTOR-REF"
"HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS" "HAIRY-DATA-VECTOR-SET"
"HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS""HAIRY-TYPE"
"HAIRY-TYPE-CHECK-TEMPLATE-NAME" "HAIRY-TYPE-SPECIFIER"
"HANDLE-CIRCULARITY" "HOST" "IGNORE-IT" "ILL-BIN"
"ILL-BOUT" "ILL-IN" "ILL-OUT" "INDEX-OR-MINUS-1"
"INDEX-TOO-LARGE-ERROR" "*!INITIAL-ASSEMBLER-ROUTINES*"
+ "*!INITIAL-DEBUG-SOURCES*"
"*!INITIAL-FDEFN-OBJECTS*" "*!INITIAL-FOREIGN-SYMBOLS*"
"*!INITIAL-LAYOUTS*" "*!INITIAL-SYMBOLS*"
"INTEGER-DECODE-DOUBLE-FLOAT"
#!+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"
+ "INVALID-UNWIND-ERROR"
"IRRATIONAL" "JUST-DUMP-IT-NORMALLY" "KEY-INFO"
"KEY-INFO-NAME" "KEY-INFO-P" "KEY-INFO-TYPE"
"LAYOUT-DEPTHOID" "LAYOUT-INVALID-ERROR"
"LIST-SUBSEQ*"
"ANSI-STREAM"
"ANSI-STREAM-BIN" "ANSI-STREAM-BOUT" "ANSI-STREAM-CLOSE"
- "ANSI-STREAM-ELEMENT-TYPE" "ANSI-STREAM-IN"
+ "ANSI-STREAM-ELEMENT-TYPE"
+ "ANSI-STREAM-FILE-POSITION"
+ "ANSI-STREAM-IN"
"ANSI-STREAM-IN-BUFFER" "ANSI-STREAM-IN-INDEX"
"ANSI-STREAM-INPUT-STREAM-P" "ANSI-STREAM-MISC"
"ANSI-STREAM-N-BIN" "ANSI-STREAM-OPEN-STREAM-P"
"ANSI-STREAM-OUT" "ANSI-STREAM-SOUT"
- "ANSI-STREAM-OUTPUT-STREAM-P" "LIST-TO-VECTOR*"
+ "ANSI-STREAM-OUTPUT-STREAM-P"
+ "COMPLEX-VECTOR"
+ "LIST-TO-VECTOR*"
"LOGICAL-HOST" "LOGICAL-HOST-DESIGNATOR"
#!+long-float "LONG-FLOAT-EXPONENT"
#!+long-float "LONG-FLOAT-EXP-BITS"
#!+long-float "LONG-FLOAT-HIGH-BITS"
#!+long-float "LONG-FLOAT-LOW-BITS"
#!+long-float "LONG-FLOAT-MID-BITS"
- "LONG-WORDS" "LRA" "LRA-CODE-HEADER" "LRA-P"
- "MAKE-ALIEN-TYPE-TYPE" "MAKE-ARGS-TYPE"
+ "LRA" "LRA-CODE-HEADER" "LRA-P"
+ "MAKE-ALIEN-TYPE-TYPE"
"MAKE-ARRAY-HEADER" "MAKE-ARRAY-TYPE" "MAKE-CONS-TYPE"
"MAKE-DOUBLE-FLOAT" "MAKE-FUN-TYPE" "MAKE-KEY-INFO"
"MAKE-LISP-OBJ"
"MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE" "MAKE-NULL-LEXENV"
"MAKE-NUMERIC-TYPE"
"MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
- "MAKE-UNPORTABLE-FLOAT" "%MAKE-INSTANCE"
+ "MAKE-UNPORTABLE-FLOAT"
"MAKE-SHORT-VALUES-TYPE" "MAKE-SINGLE-VALUE-TYPE"
"MAKE-VALUE-CELL" "MAKE-VALUES-TYPE"
"MAPC-MEMBER-TYPE-MEMBERS" "MAPCAR-MEMBER-TYPE-MEMBERS"
"MEMBER-TYPE" "MEMBER-TYPE-MEMBERS" "MEMBER-TYPE-P"
- "MEMBER-TYPE-SIZE" "MERGE-BITS"
- "MODIFIED-NUMERIC-TYPE" "MUTATOR-SELF" "NAMED-TYPE"
- "NAMED-TYPE-NAME" "NAMED-TYPE-P" "NATIVE-BYTE-ORDER"
+ "MEMBER-TYPE-SIZE"
+ "MODIFIED-NUMERIC-TYPE"
+ "MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM"
+ "MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM"
+ "MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM"
+ "MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM"
+ "MUTATOR-SELF" "NAMED-TYPE"
+ "NAMED-TYPE-NAME" "NAMED-TYPE-P"
"NEGATE" "NEGATION-TYPE" "NEGATION-TYPE-TYPE"
- "NEVER-SUBTYPEP" "NIL-ARRAY-ACCESSED-ERROR"
- "NIL-FUN-RETURNED-ERROR" "NOT-<=-ERROR" "NOT-=-ERROR"
- "NOT-DUMPED-AT-ALL" "NUMERIC-CONTAGION" "NUMERIC-TYPE"
+ "NIL-ARRAY-ACCESSED-ERROR"
+ "NIL-FUN-RETURNED-ERROR"
+ "NUMERIC-CONTAGION" "NUMERIC-TYPE"
"NUMERIC-TYPE-CLASS" "NUMERIC-TYPE-COMPLEXP"
"NUMERIC-TYPE-EQUAL" "NUMERIC-TYPE-FORMAT"
"NUMERIC-TYPE-HIGH" "NUMERIC-TYPE-LOW" "NUMERIC-TYPE-P"
"OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-ERROR"
#!+long-float
"OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR"
+ #!+sb-simd-pack
+ "OBJECT-NOT-SIMD-PACK-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-ERROR"
;; 32-bit and 64-bit ports. Other bits connected to the
;; same issue are noted throughout the code below with
;; the tag "32/64-bit issues". --njf, 2004-08-09
- "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-29-ERROR"
+ "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-FIXNUM-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-31-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-32-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-4-ERROR"
;; FIXME: 32/64-bit issues
- "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-60-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-63-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-64-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-7-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-8-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-16-ERROR"
- ;; FIXME: 32/64-bit issues
- "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-30-ERROR"
+ "OBJECT-NOT-SIMPLE-ARRAY-FIXNUM-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-32-ERROR"
- ;; FIXME: 32/64-bit issues
- "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-61-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-64-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-8-ERROR"
"OBJECT-NOT-SIMPLE-BIT-VECTOR-ERROR"
"PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
"PARSE-DEFMACRO" "PARSE-UNKNOWN-TYPE"
"PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR"
+ "POINTER-HASH"
#!+(or x86 x86-64) "*PSEUDO-ATOMIC-BITS*"
"PUNT-PRINT-IF-TOO-LONG"
+ "RANDOM-DOCUMENTATION"
"RAW-INSTANCE-SLOTS-EQUALP"
"READER-IMPOSSIBLE-NUMBER-ERROR"
"READER-EOF-ERROR"
"SIMPLE-ARRAY-UNSIGNED-BYTE-15-P"
"SIMPLE-ARRAY-UNSIGNED-BYTE-16-P"
"SIMPLE-ARRAY-UNSIGNED-BYTE-2-P"
- ;; FIXME: 32/64-bit issues
- "SIMPLE-ARRAY-UNSIGNED-BYTE-29-P"
+ "SIMPLE-ARRAY-UNSIGNED-FIXNUM-P"
"SIMPLE-ARRAY-UNSIGNED-BYTE-31-P"
"SIMPLE-ARRAY-UNSIGNED-BYTE-32-P"
"SIMPLE-ARRAY-UNSIGNED-BYTE-4-P"
- ;; FIXME: 32/64-bit issues
- "SIMPLE-ARRAY-UNSIGNED-BYTE-60-P"
"SIMPLE-ARRAY-UNSIGNED-BYTE-63-P"
"SIMPLE-ARRAY-UNSIGNED-BYTE-64-P"
"SIMPLE-ARRAY-UNSIGNED-BYTE-7-P"
"SIMPLE-ARRAY-UNSIGNED-BYTE-8-P"
"SIMPLE-ARRAY-SIGNED-BYTE-16-P"
- "SIMPLE-ARRAY-SIGNED-BYTE-30-P"
+ "SIMPLE-ARRAY-FIXNUM-P"
"SIMPLE-ARRAY-SIGNED-BYTE-32-P"
- ;; FIXME: 32/64-bit issues
- "SIMPLE-ARRAY-SIGNED-BYTE-61-P"
"SIMPLE-ARRAY-SIGNED-BYTE-64-P"
"SIMPLE-ARRAY-SIGNED-BYTE-8-P" "SIMPLE-BASE-STRING-P"
#!+sb-unicode "SIMPLE-CHARACTER-STRING-P"
"SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-SIGNIFICAND"
"SINGLE-VALUE-TYPE" "SINGLE-VALUE-SPECIFIER-TYPE"
"SPECIALIZABLE" "SPECIALIZABLE-VECTOR" "SPECIFIER-TYPE"
+ #!+sb-simd-pack "SIMD-PACK-SINGLE"
+ #!+sb-simd-pack "SIMD-PACK-DOUBLE"
+ #!+sb-simd-pack "SIMD-PACK-INT"
+ #!+sb-simd-pack "SIMD-PACK-TYPE"
+ #!+sb-simd-pack "SIMD-PACK-TYPE-ELEMENT-TYPE"
+ #!+sb-simd-pack "*SIMD-PACK-ELEMENT-TYPES*"
"STACK-REF" "STREAM-DESIGNATOR" "STRING-DESIGNATOR"
"STRING-FILL*"
- "STRING-SUBSEQ*"
- "STRUCTURE-RAW-SLOT-TYPE-AND-SIZE" "SUB-GC"
+ "SUB-GC"
"SYMBOLS-DESIGNATOR"
"%INSTANCE-LENGTH"
"%INSTANCE-REF"
"%INSTANCE-SET"
- "SYSTEM-AREA-CLEAR"
+ "TLS-EXHAUSTED-ERROR"
"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"
"TWO-ARG-GCD" "TWO-ARG-IOR" "TWO-ARG-LCM" "TWO-ARG-XOR"
- "TYPE-DIFFERENCE" "TYPE-EXPAND" "TYPE-INTERSECTION"
+ "TYPE-*-TO-T"
+ "TYPE-DIFFERENCE" "TYPE-INTERSECTION"
"TYPE-INTERSECTION2" "TYPE-APPROX-INTERSECTION2"
+ "TYPE-SINGLETON-P"
"TYPE-SINGLE-VALUE-P" "TYPE-SPECIFIER" "TYPE-UNION"
"TYPE/=" "TYPE=" "TYPES-EQUAL-OR-INTERSECT"
"UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
"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"
- "VALUES-TYPE-INTERSECTION" "VALUES-TYPE-OPTIONAL"
+ "VALUES-TYPE" "VALUES-TYPE-IN"
+ "VALUES-TYPE-INTERSECTION"
+ "VALUES-TYPE-MIN-VALUE-COUNT" "VALUES-TYPE-MAX-VALUE-COUNT"
+ "VALUES-TYPE-MAY-BE-SINGLE-VALUE-P" "VALUES-TYPE-OPTIONAL"
"VALUES-TYPE-OUT" "VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
"VALUES-TYPE-REST" "VALUES-TYPE-UNION"
"VALUES-TYPE-TYPES" "VALUES-TYPES"
- "VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"
+ "VALUES-TYPES-EQUAL-OR-INTERSECT"
+
+ "*VECTOR-WITHOUT-COMPLEX-TYPECODE-INFOS*"
+ "VECTOR-SINGLE-FLOAT-P" "VECTOR-DOUBLE-FLOAT-P"
+ "VECTOR-UNSIGNED-BYTE-2-P" "VECTOR-UNSIGNED-BYTE-4-P"
+ "VECTOR-UNSIGNED-BYTE-7-P" "VECTOR-UNSIGNED-BYTE-8-P"
+ "VECTOR-UNSIGNED-BYTE-15-P" "VECTOR-UNSIGNED-BYTE-16-P"
+ "VECTOR-UNSIGNED-BYTE-31-P" "VECTOR-UNSIGNED-BYTE-32-P"
+ "VECTOR-UNSIGNED-BYTE-63-P" "VECTOR-UNSIGNED-BYTE-64-P"
+ "VECTOR-SIGNED-BYTE-8-P" "VECTOR-SIGNED-BYTE-16-P"
+ "VECTOR-FIXNUM-P" "VECTOR-SIGNED-BYTE-32-P"
+ "VECTOR-SIGNED-BYTE-64-P" "VECTOR-COMPLEX-SINGLE-FLOAT-P"
+ "VECTOR-COMPLEX-DOUBLE-FLOAT-P" "VECTOR-T-P"
+
"VECTOR-NIL-P"
"VECTOR-FILL*"
"VECTOR-SUBSEQ*"
"VECTOR-TO-VECTOR*"
"VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH" "WITH-ARRAY-DATA"
- "WITH-CIRCULARITY-DETECTION" "WRONG-NUMBER-OF-INDICES-ERROR"
+ "WITH-CIRCULARITY-DETECTION"
+ "WITH-WORLD-LOCK"
;; bit bash fillers (FIXME: 32/64-bit issues)
"UB1-BASH-FILL" "SYSTEM-AREA-UB1-FILL"
"UB64-BASH-COPY" "SYSTEM-AREA-UB64-COPY"
"COPY-UB64-TO-SYSTEM-AREA" "COPY-UB64-FROM-SYSTEM-AREA"
+ ;; Bit bashing position for bit-vectors
+ "%BIT-POSITION"
+ "%BIT-POSITION/0"
+ "%BIT-POSITION/1"
+
+ ;; SIMPLE-FUN type and accessors
+ "SIMPLE-FUN"
+ "SIMPLE-FUN-P"
+ "%SIMPLE-FUN-ARGLIST"
+ "%SIMPLE-FUN-DOC"
+ "%SIMPLE-FUN-INFO"
+ "%SIMPLE-FUN-NAME"
+ "%SIMPLE-FUN-NEXT"
+ "%SIMPLE-FUN-SELF"
+ "%SIMPLE-FUN-TYPE"
+ "%SIMPLE-FUN-XREFS"
+
+ ;; CLOSURE type and accessors
+ "CLOSURE"
+ "CLOSUREP"
+ "DO-CLOSURE-VALUES"
+ "%CLOSURE-FUN"
+ "%CLOSURE-INDEX-REF"
+ "%CLOSURE-VALUES"
+
+ ;; Abstract function accessors
+ "%FUN-DOC"
+ "%FUN-FUN"
+ "%FUN-LAMBDA-LIST"
+ "%FUN-NAME"
+
"FDEFN" "MAKE-FDEFN" "FDEFN-P" "FDEFN-NAME" "FDEFN-FUN"
- "FDEFN-MAKUNBOUND" "OUTER-FDEFN"
+ "FDEFN-MAKUNBOUND"
"%COERCE-CALLABLE-TO-FUN" "FUN-SUBTYPE"
"*MAXIMUM-ERROR-DEPTH*" "%SET-SYMBOL-PLIST"
"INFINITE-ERROR-PROTECT"
+ "FIND-CALLER-OF-NAMED-FRAME"
"FIND-CALLER-NAME-AND-FRAME"
"FIND-INTERRUPTED-NAME-AND-FRAME"
- "%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE"
+ "%SET-SYMBOL-VALUE" "%SET-SYMBOL-GLOBAL-VALUE" "%SET-SYMBOL-PACKAGE"
"OUTPUT-SYMBOL-NAME" "%COERCE-NAME-TO-FUN"
- "INVOKE-MACROEXPAND-HOOK" "DEFAULT-STRUCTURE-PRINT"
+ "DEFAULT-STRUCTURE-PRINT"
"LAYOUT" "LAYOUT-LENGTH" "LAYOUT-PURE" "DSD-RAW-TYPE"
- "DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE" "DD-COPIER"
+ "DEFSTRUCT-DESCRIPTION" "UNDECLARE-STRUCTURE"
"UNDEFINE-FUN-NAME" "DD-TYPE" "CLASSOID-STATE" "INSTANCE"
"*TYPE-SYSTEM-INITIALIZED*" "FIND-LAYOUT" "DSD-NAME"
- "%TYPEP" "DD-RAW-INDEX" "DD-NAME" "CLASSOID-SUBCLASSES"
+ "%TYPEP" "DD-NAME" "CLASSOID-SUBCLASSES"
"CLASSOID-LAYOUT" "CLASSOID-NAME" "CLASSOID-P"
"DD-RAW-LENGTH" "NOTE-NAME-DEFINED" "%CODE-CODE-SIZE"
"DD-SLOTS" "DD-INCLUDE" "SLOT-SETTER-LAMBDA-FORM"
"%IMAGPART" "DSD-ACCESSOR-NAME" "%CODE-DEBUG-INFO"
- "LAYOUT-CLASSOID" "LAYOUT-INVALID" "%SIMPLE-FUN-NAME"
+ "LAYOUT-CLASSOID" "LAYOUT-INVALID"
"DSD-TYPE" "%INSTANCEP" "DEFSTRUCT-SLOT-DESCRIPTION"
- "%SIMPLE-FUN-ARGLIST" "%SIMPLE-FUN-NEXT"
"DD-PREDICATE-NAME"
"CLASSOID-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
"%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR"
- "LAYOUT-OF" "%SIMPLE-FUN-SELF" "%REALPART"
+ "LAYOUT-OF" "%REALPART"
"STRUCTURE-CLASSOID-P" "DSD-INDEX" "STRUCTURE-CLASSOID"
- "%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH" "%SIMPLE-FUN-TYPE"
+ "%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH"
"PROCLAIM-AS-FUN-NAME" "BECOME-DEFINED-FUN-NAME"
"%NUMERATOR" "CLASSOID-TYPEP" "DSD-READ-ONLY"
"DSD-DEFAULT" "LAYOUT-INHERITS" "DD-LENGTH"
- "%CODE-ENTRY-POINTS" "%DENOMINATOR" "%SIMPLE-FUN-XREFS"
+ "%CODE-ENTRY-POINTS" "%DENOMINATOR"
"%OTHER-POINTER-P"
"STANDARD-CLASSOID" "CLASSOID-OF"
- "MAKE-STANDARD-CLASSOID" "CLASSOID-CELL-TYPEP"
- "FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
+ "MAKE-STANDARD-CLASSOID"
+ "CLASSOID-CELL-CLASSOID"
+ "CLASSOID-CELL-NAME"
+ "CLASSOID-CELL-PCL-CLASS"
+ "CLASSOID-CELL-TYPEP"
+ "%CLEAR-CLASSOID"
+ "FIND-CLASSOID-CELL"
"%RANDOM-DOUBLE-FLOAT"
#!+long-float "%RANDOM-LONG-FLOAT"
"%RANDOM-SINGLE-FLOAT" "STATIC-CLASSOID"
"%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK" "BIG-RANDOM-CHUNK"
- "LAYOUT-CLOS-HASH-LIMIT" "CLASSOID-CELL-NAME"
+ "N-RANDOM-CHUNK-BITS"
+ "LAYOUT-CLOS-HASH-LIMIT"
"BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES"
"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"
"REGISTER-LAYOUT"
- "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
- "MAKE-STATIC-CLASSOID" "INSTANCE-LAMBDA"
+ "FUNCALLABLE-INSTANCE"
+ "MAKE-STATIC-CLASSOID"
"%MAKE-SYMBOL"
"%FUNCALLABLE-INSTANCE-FUNCTION" "SYMBOL-HASH"
"BUILT-IN-CLASSOID" "CONDITION-CLASSOID-P"
"CONDITION-CLASSOID-SLOTS" "MAKE-UNDEFINED-CLASSOID"
"FIND-CLASSOID" "CLASSOID" "CLASSOID-DIRECT-SUPERCLASSES"
- "MAKE-LAYOUT" "REDEFINE-LAYOUT-WARNING" "SLOT-CLASSOID"
+ "MAKE-LAYOUT" "REDEFINE-LAYOUT-WARNING"
"INSURED-FIND-CLASSOID" "ORDER-LAYOUT-INHERITS"
"STD-COMPUTE-CLASS-PRECEDENCE-LIST"
;; symbols from former SB!CONDITIONS
"*HANDLER-CLUSTERS*" "*RESTART-CLUSTERS*"
- "*CONDITION-RESTARTS*" "SHOW-CONDITION" "CASE-FAILURE"
+ "*CONDITION-RESTARTS*" "CASE-FAILURE"
"NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
- "DESCRIBE-CONDITION" "MAKE-RESTART" "COERCE-TO-CONDITION"
+ "MAKE-RESTART" "COERCE-TO-CONDITION"
+
+ "ALLOCATE-CONDITION"
"CONDITION-READER-FUNCTION"
"CONDITION-WRITER-FUNCTION"
"CONDITION-SLOT-NAME" "CONDITION-SLOT-READERS"
"CONDITION-SLOT-WRITERS"
+ "REDEFINITION-WARNING"
+ "REDEFINITION-WITH-DEFUN"
+ "REDEFINITION-WITH-DEFMACRO"
+ "REDEFINITION-WITH-DEFGENERIC"
+ "REDEFINITION-WITH-DEFMETHOD"
+ "UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P"
+ "UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P"
+ "UNINTERESTING-METHOD-REDEFINITION-P"
+ "UNINTERESTING-REDEFINITION"
+ "REDEFINITION-WITH-DEFTRANSFORM"
+
+ "DUBIOUS-ASTERISKS-AROUND-VARIABLE-NAME"
+ "ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME"
+ "ASTERISKS-AROUND-CONSTANT-VARIABLE-NAME"
+ "UNDEFINED-ALIEN-STYLE-WARNING"
+ #!+sb-eval
+ "LEXICAL-ENVIRONMENT-TOO-COMPLEX"
+ "CHARACTER-DECODING-ERROR-IN-COMMENT"
+ "DEPRECATED-EVAL-WHEN-SITUATIONS"
+ "PROCLAMATION-MISMATCH"
+ "TYPE-PROCLAMATION-MISMATCH"
+ "FTYPE-PROCLAMATION-MISMATCH"
+
"!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
"!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT"
"!FOREIGN-COLD-INIT" "!FUNCTION-NAMES-COLD-INIT"
"!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT"
"!ALIEN-TYPE-COLD-INIT" "!CLASSES-COLD-INIT"
+ "!DEADLINE-COLD-INIT"
"!EARLY-TYPE-COLD-INIT" "!LATE-TYPE-COLD-INIT"
"!FIXUP-TYPE-COLD-INIT" "!TARGET-TYPE-COLD-INIT"
"!RANDOM-COLD-INIT" "!READER-COLD-INIT"
+ "!PATHNAME-COLD-INIT" "!DEBUG-INFO-COLD-INIT"
"!TYPECHECKFUNS-COLD-INIT" "!LOADER-COLD-INIT"
"!EXHAUST-COLD-INIT" "!PACKAGE-COLD-INIT"
"!POLICY-COLD-INIT-OR-RESANIFY"
"!SHARPM-COLD-INIT" "!EARLY-PROCLAIM-COLD-INIT"
"!LATE-PROCLAIM-COLD-INIT" "!CLASS-FINALIZE"
"!CONSTANTP-COLD-INIT"
+ "!WORLD-LOCK-COLD-INIT"
"FLOAT-COLD-INIT-OR-REINIT"
"GC-REINIT"
"%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"
"%SET-FDEFINITION" "%SCHARSET" "%SBITSET"
"%RPLACD" "%RPLACA" "%PUT" "%CHARSET" "%BITSET"
- "%ASET" "%ARRAY-TYPEP"
- "%SET-SAP-REF-DESCRIPTOR"))
+ "%ASET"))
#s(sb-cold:package-data
:name "SB!THREAD"
:use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!KERNEL")
:doc "public (but low-level): native thread support"
- :export ("*CURRENT-THREAD*" "THREAD" "MAKE-THREAD"
- "THREAD-NAME" "THREAD-ALIVE-P"
- "LIST-ALL-THREADS"
- "JOIN-THREAD" "JOIN-THREAD-ERROR" "JOIN-THREAD-ERROR-THREAD"
+ :export ("*CURRENT-THREAD*"
+ "DESTROY-THREAD"
+ "INTERRUPT-THREAD"
"INTERRUPT-THREAD-ERROR"
"INTERRUPT-THREAD-ERROR-THREAD"
- "INTERRUPT-THREAD" "TERMINATE-THREAD" "DESTROY-THREAD"
+ "RETURN-FROM-THREAD"
+ "ABORT-THREAD"
+ "MAIN-THREAD-P"
+ "MAIN-THREAD"
+ "JOIN-THREAD"
+ "JOIN-THREAD-ERROR"
+ "JOIN-THREAD-ERROR-THREAD"
+ "LIST-ALL-THREADS"
+ "MAKE-THREAD"
+ "SYMBOL-VALUE-IN-THREAD"
+ "SYMBOL-VALUE-IN-THREAD-ERROR"
+ "TERMINATE-THREAD"
+ "THREAD"
+ "THREAD-DEADLOCK"
+ "THREAD-DEADLOCK-CYCLE"
+ "THREAD-ERROR"
+ "THREAD-ERROR-THREAD"
+ "THREAD-ALIVE-P"
+ "THREAD-EMPHEMERAL-P"
+ "THREAD-NAME"
"THREAD-YIELD"
- "MUTEX" "MAKE-MUTEX" "MUTEX-NAME" "MUTEX-VALUE"
- "GET-MUTEX" "RELEASE-MUTEX" "WITH-MUTEX"
+ "FOREIGN-THREAD"
+ #!+(and sb-safepoint-strictly (not win32))
+ "SIGNAL-HANDLING-THREAD"
+ ;; Memory barrier
+ "BARRIER"
+ ;; Mutexes
+ "GET-MUTEX"
+ "GRAB-MUTEX"
+ "HOLDING-MUTEX-P"
+ "MAKE-MUTEX"
+ "MUTEX"
+ "MUTEX-NAME"
+ "MUTEX-OWNER"
+ "MUTEX-VALUE"
+ "RELEASE-MUTEX"
+ "WITH-MUTEX"
"WITH-RECURSIVE-LOCK"
- "WAITQUEUE" "MAKE-WAITQUEUE" "WAITQUEUE-NAME"
- "CONDITION-WAIT" "CONDITION-NOTIFY" "CONDITION-BROADCAST"
+ ;; Condition variables
+ "CONDITION-BROADCAST"
+ "CONDITION-NOTIFY"
+ "CONDITION-WAIT"
+ "MAKE-WAITQUEUE"
+ "WAITQUEUE"
+ "WAITQUEUE-NAME"
+ ;; Sessions
"MAKE-LISTENER-THREAD"
"RELEASE-FOREGROUND"
"WITH-NEW-SESSION"
"SEMAPHORE-NAME"
"SEMAPHORE-COUNT"
"SIGNAL-SEMAPHORE"
- "WAIT-ON-SEMAPHORE"))
+ "TRY-SEMAPHORE"
+ "WAIT-ON-SEMAPHORE"
+ ;; Semaphore notification objects
+ "CLEAR-SEMAPHORE-NOTIFICATION"
+ "MAKE-SEMAPHORE-NOTIFICATION"
+ "SEMAPHORE-NOTIFICATION"
+ "SEMAPHORE-NOTIFICATION-STATUS"))
#s(sb-cold:package-data
:name "SB!LOOP"
;; experimental SBCL-only (for now) symbols
:export ("MAKE-METHOD-SPECIALIZERS-FORM"
"PARSE-SPECIALIZER-USING-CLASS"
- "UNPARSE-SPECIALIZER-USING-CLASS")
+ "UNPARSE-SPECIALIZER-USING-CLASS"
+ "+SLOT-UNBOUND+")
;; FIXME: After a little while, these reexports can probably go
;; away, as they're superseded by the use of SB-MOP as the
;; publically-accessible package.
"CANONIZE-TEST" "CANONIZE-KEY"
- "LENGTH" "ELT"
+ "EMPTYP" "LENGTH" "ELT"
"MAKE-SEQUENCE-LIKE" "ADJUST-SEQUENCE"
"COUNT" "COUNT-IF" "COUNT-IF-NOT"
Some anomalies (e.g. FIND-IF-IN-CLOSURE being in SB-SYS instead of
SB-KERNEL) have been undone, but probably more remain."
:use ("CL" "SB!EXT" "SB!INT")
- :export ("%ASSEMBLER-CODE-TYPE"
- "%BIND-ALIGNED-SAP"
- ;; FIXME: %PRIMITIVE shouldn't be here. (I now know that %SYS
+ :export (;; FIXME: %PRIMITIVE shouldn't be here. (I now know that %SYS
;; is for OS-dependent stuff. %PRIMITIVE should probably be in
;; SB!KERNEL.)
"%PRIMITIVE"
"%STANDARD-CHAR-P"
+ "*EXIT-ERROR-HANDLER*"
+ "*EXIT-IN-PROCESS*"
"*ALLOW-WITH-INTERRUPTS*"
- "*FOREIGN-LOCK*"
"*INTERRUPTS-ENABLED*"
"*INTERRUPT-PENDING*"
+ #!+sb-thruption "*THRUPTION-PENDING*"
"*LINKAGE-INFO*"
"*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"
"*PERIODIC-POLLING-FUNCTION*"
"*SHARED-OBJECTS*"
"*STATIC-FOREIGN-SYMBOLS*"
"*STDERR*" "*STDIN*"
- "*STDOUT*" "*TASK-DATA*"
- "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*"
+ "*STDOUT*"
+ "*TTY*"
"ADD-FD-HANDLER"
"ALLOCATE-SYSTEM-MEMORY"
"ALLOW-WITH-INTERRUPTS"
- "BEEP" "BITS"
- "BYTES"
+ "BEEP"
"BREAKPOINT-ERROR"
+ "CANCEL-DEADLINE"
"CLOSE-SHARED-OBJECTS"
- "COMPILER-VERSION"
"DEADLINE-TIMEOUT"
"DEALLOCATE-SYSTEM-MEMORY"
"DECODE-TIMEOUT"
"DECODE-INTERNAL-TIME"
"DEFAULT-INTERRUPT"
"DEFER-DEADLINE"
- "DEPORT-BOOLEAN" "DEPORT-INTEGER"
"DYNAMIC-FOREIGN-SYMBOLS-P"
"DLOPEN-OR-LOSE"
"FROB-DO-BODY"
"ENABLE-INTERRUPT"
- "ENUMERATION"
"ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
"EXTERN-ALIEN-NAME"
+ "EXIT-CODE"
"FD-STREAM" "FD-STREAM-FD" "FD-STREAM-P"
"FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
"FIND-FOREIGN-SYMBOL-ADDRESS"
"FOREIGN-SYMBOL-SAP"
"FOREIGN-SYMBOL-ADDRESS"
"FOREIGN-SYMBOL-DATAREF-SAP"
- "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
+ "GET-MACHINE-VERSION" "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
"IGNORE-INTERRUPT"
"IN-INTERRUPTION"
"INTERACTIVE-INTERRUPT"
"MACRO" "MAKE-FD-STREAM"
"MEMORY-FAULT-ERROR"
"MEMMOVE"
- "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER"
+ "OS-EXIT"
"OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES"
- "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
+ "READ-N-BYTES"
"REMOVE-FD-HANDLER"
"REOPEN-SHARED-OBJECTS"
- "RESOLVE-LOADED-ASSEMBLER-REFERENCES"
"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"
- "SAP-REF-DOUBLE" "SAP-REF-LONG"
+ "SAP-REF-DOUBLE" "SAP-REF-LISPOBJ" "SAP-REF-LONG"
+ "SAP-REF-OCTETS"
"SAP-REF-SAP" "SAP-REF-SINGLE"
"SAP<" "SAP<=" "SAP=" "SAP>" "SAP>="
"SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS"
;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL.
"STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
"SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P"
- "SYSTEM-CONDITION" "SYSTEM-CONDIION-ADDRESS"
+ "SYSTEM-CONDITION" "SYSTEM-CONDITION-ADDRESS"
"SYSTEM-CONDITION-CONTEXT"
"REINIT-INTERNAL-REAL-TIME"
"SYSTEM-INTERNAL-RUN-TIME"
needed by the current implementation of SBCL, and makes
no guarantees of interface stability."
:use ("CL" "SB!ALIEN" "SB!EXT" "SB!INT" "SB!SYS")
+ :reexport ("OFF-T"
+ "SIZE-T")
:export ( ;; wrappers around Unix stuff to give just what Lisp needs
"NANOSLEEP"
"UID-USERNAME"
"UID-HOMEDIR"
+ "USER-HOMEDIR"
"WITH-RESTARTED-SYSCALL"
"SB-MKSTEMP"
+ "UNIX-OFFSET"
+ "FD-TYPE"
;; stuff with a one-to-one mapping to Unix constructs
"D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" "DEV-T" "DIRECT"
"INO-T" "UNIX-ACCESS" "UNIX-SETITIMER" "UNIX-GETITIMER"
"KBDCGET" "KBDCRESET"
"KBDCRST" "KBDCSET" "KBDCSSTD" "KBDGCLICK" "KBDSCLICK" "KBDSGET"
- "L_INCR" "L_SET" "L_XTND" "OFF-T" "O_APPEND" "O_CREAT" "O_EXCL"
+ "L_INCR" "L_SET" "L_XTND" "O_APPEND" "O_CREAT" "O_EXCL"
"O_RDONLY" "O_RDWR" "O_TRUNC" "O_WRONLY" "POSIX-GETCWD"
"POSIX-GETCWD/" "READGRP" "READOTH" "READOWN" "RLIM-CUR"
"RLIM-MAX" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS"
"RU-MAJFLT" "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND"
"RU-NIVCSW" "RU-NSIGNALS" "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK"
"RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE"
- "R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFLNK" "S-IFMT"
+ "R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFIFO" "S-IFLNK" "S-IFMT"
"S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX"
"S-IWRITE" "SAVETEXT" "SB-MKSTEMP" "SC-MASK" "SC-ONSTACK"
"SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL"
- "SG-OSPEED" "SGTTYB" "SIZE-T" "ST-ATIME" "ST-BLKSIZE" "ST-BLOCKS"
+ "SG-OSPEED" "SGTTYB" "ST-ATIME" "ST-BLKSIZE" "ST-BLOCKS"
"ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME" "ST-NLINK"
"ST-RDEV" "ST-SIZE" "ST-UID" "STAT" "TERMINAL-SPEEDS" "TIME-T"
"TIMEVAL" "TIMEZONE" "TIOCFLUSH" "TIOCGETC" "TIOCGETP" "TIOCGLTC"
"TIOCGPGRP" "TIOCGWINSZ" "TIOCNOTTY" "TIOCSETC" "TIOCSETP"
"TIOCSLTC" "TIOCSPGRP" "TIOCSWINSZ" "TV-SEC" "TV-USEC"
"TZ-DSTTIME" "TZ-MINUTESWEST" "UID-T" "UNIX-CLOSE"
- "UNIX-DUP""UNIX-EXIT" "UNIX-FILE-MODE" "UNIX-FSTAT"
+ "UNIX-CLOSEDIR" "UNIX-DIRENT-NAME" "UNIX-DUP"
+ "UNIX-FILE-MODE" "UNIX-FSTAT"
"UNIX-GETHOSTNAME" "UNIX-GETPID" "UNIX-GETRUSAGE"
- "UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-GID" "UNIX-IOCTL"
+ "UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-GID"
+ "UNIX-EXIT"
+ "UNIX-IOCTL"
"UNIX-ISATTY" "UNIX-LSEEK" "UNIX-LSTAT" "UNIX-MKDIR"
- "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID"
- "UNIX-PIPE" "UNIX-READ" "UNIX-READLINK" "UNIX-REALPATH"
+ "UNIX-OPEN" "UNIX-OPENDIR" "UNIX-PATHNAME" "UNIX-PID"
+ "UNIX-PIPE" "UNIX-SIMPLE-POLL" "UNIX-READ" "UNIX-READDIR" "UNIX-READLINK" "UNIX-REALPATH"
"UNIX-RENAME" "UNIX-SELECT" "UNIX-STAT" "UNIX-UID"
"UNIX-UNLINK" "UNIX-WRITE"
"WINSIZE"
"EUSERS" "EVICEERR" "EVICEOP" "EWOULDBLOCK" "EXDEV"
"FD-ISSET" "FD-SET" "LTCHARS" "UNIX-FAST-SELECT"
- "UNIX-FILE-KIND" "UNIX-KILL" "CODESET"
+ "UNIX-KILL" "CODESET"
"TCSETPGRP" "FD-ZERO" "FD-CLR" "CHECK" "UNIX-RESOLVE-LINKS"
"FD-SETSIZE" "TCGETPGRP" "UNIX-FAST-GETRUSAGE"
"UNIX-KILLPG"
structure representations"
:use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!ASSEM" "SB!C"
"SB!EXT" "SB!FASL" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!UNIX")
- :export ("*ASSEMBLY-UNIT-LENGTH*"
+ :reexport ("WORD")
+ :export ("*ALLOC-SIGNAL*"
"*PRIMITIVE-OBJECTS*"
+ "+HIGHEST-NORMAL-GENERATION+"
+ "+PSEUDO-STATIC-GENERATION+"
+ "%COMPILER-BARRIER" "%DATA-DEPENDENCY-BARRIER"
+ "%MEMORY-BARRIER" "%READ-BARRIER" "%WRITE-BARRIER"
"AFTER-BREAKPOINT-TRAP"
- "*ALLOC-SIGNAL*"
+ #!+(and gencgc sparc) "ALLOCATION-TRAP"
"ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET"
"ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT"
+ "ARRAY-DISPLACED-FROM-SLOT"
"ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-P-SLOT"
"ARRAY-FILL-POINTER-SLOT" "ATOMIC-FLAG"
"CHARACTER-REG-SC-NUMBER"
"CATCH-BLOCK-CURRENT-CODE-SLOT"
"CATCH-BLOCK-CURRENT-CONT-SLOT" "CATCH-BLOCK-CURRENT-UWP-SLOT"
"CATCH-BLOCK-ENTRY-PC-SLOT" "CATCH-BLOCK-PREVIOUS-CATCH-SLOT"
- "CATCH-BLOCK-SC-NUMBER" "CATCH-BLOCK-SIZE" "CATCH-BLOCK-SIZE-SLOT"
+ "CATCH-BLOCK-SC-NUMBER" "CATCH-BLOCK-SIZE"
"CATCH-BLOCK-TAG-SLOT" "CERROR-TRAP"
"CLOSURE-FUN-SLOT"
"CLOSURE-HEADER-WIDETAG" "CLOSURE-INFO-OFFSET"
#!+long-float "COMPLEX-LONG-FLOAT-WIDETAG"
#!+long-float "COMPLEX-LONG-REG-SC-NUMBER"
#!+long-float "COMPLEX-LONG-STACK-SC-NUMBER"
+ #!+sb-simd-pack "SIMD-PACK-TAG-SLOT"
+ #!+sb-simd-pack "SIMD-PACK-HI-VALUE-SLOT"
+ #!+sb-simd-pack "SIMD-PACK-LO-VALUE-SLOT"
+ #!+sb-simd-pack "SIMD-PACK-SIZE"
+ #!+sb-simd-pack "SIMD-PACK-WIDETAG"
+ #!-x86-64 #!-x86-64
"COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-SLOT"
+ #!+x86-64
+ "COMPLEX-SINGLE-FLOAT-DATA-SLOT"
"COMPLEX-SINGLE-FLOAT-SIZE" "COMPLEX-SINGLE-FLOAT-WIDETAG"
"COMPLEX-SINGLE-REG-SC-NUMBER" "COMPLEX-SINGLE-STACK-SC-NUMBER"
"COMPLEX-SIZE" "COMPLEX-BASE-STRING-WIDETAG"
"CONTEXT-FLOATING-POINT-MODES" "CONTEXT-FLOAT-REGISTER"
"CONTEXT-PC" "CONTEXT-REGISTER"
"CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS"
+ #!+sb-safepoint "CSP-SAFEPOINT-TRAP"
"*CURRENT-CATCH-BLOCK*"
- "CURRENT-FLOAT-TRAP" "DEFINE-FOR-EACH-PRIMITIVE-OBJECT"
+ "CURRENT-FLOAT-TRAP"
"DESCRIPTOR-REG-SC-NUMBER" "DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE"
"DOUBLE-FLOAT-EXPONENT-BYTE" "DOUBLE-FLOAT-BIAS"
"DOUBLE-FLOAT-DIGITS" "DOUBLE-FLOAT-EXPONENT-BYTE"
- "DOUBLE-FLOAT-FILLER-SLOT" "DOUBLE-FLOAT-HIDDEN-BIT"
+ "DOUBLE-FLOAT-HIDDEN-BIT"
"DOUBLE-FLOAT-NORMAL-EXPONENT-MAX"
"DOUBLE-FLOAT-NORMAL-EXPONENT-MIN" "DOUBLE-FLOAT-SIGNIFICAND-BYTE"
"DOUBLE-FLOAT-SIZE" "DOUBLE-FLOAT-TRAPPING-NAN-BIT"
"DOUBLE-FLOAT-WIDETAG" "DOUBLE-FLOAT-VALUE-SLOT"
"DOUBLE-INT-CARG-REG-SC-NUMBER" "DOUBLE-REG-SC-NUMBER"
"DOUBLE-STACK-SC-NUMBER"
- "ERROR-TRAP" "EVEN-FIXNUM-LOWTAG"
- "EXPORTED-STATIC-SYMBOLS"
+ "EMIT-LONG-NOP" "ERROR-TRAP" "EVEN-FIXNUM-LOWTAG"
"FDEFN-FUN-SLOT" "FDEFN-NAME-SLOT" "FDEFN-RAW-ADDR-SLOT"
"FDEFN-SIZE" "FDEFN-WIDETAG" "FIXNUMIZE"
"FIXNUM-TAG-MASK"
"FIXUP-CODE-OBJECT" "FLOAT-DENORMAL-TRAP-BIT"
"FLOAT-DIVIDE-BY-ZERO-TRAP-BIT"
- "FLOAT-IMPRECISE-TRAP-BIT" "FLOAT-INVALID-TRAP-BIT"
+ "FLOAT-INVALID-TRAP-BIT"
"FLOAT-OVERFLOW-TRAP-BIT" "FLOAT-SIGN-SHIFT"
"FLOAT-UNDERFLOW-TRAP-BIT" "FLOATING-POINT-MODES"
- "FORWARDING-POINTER-TYPE"
"FP-CONSTANT-SC-NUMBER"
"FP-DOUBLE-ZERO-SC-NUMBER" "FP-SINGLE-ZERO-SC-NUMBER"
"FUNCALLABLE-INSTANCE-TRAMPOLINE-SLOT"
"FUNCALLABLE-INSTANCE-INFO-OFFSET"
"SIMPLE-FUN-ARGLIST-SLOT" "SIMPLE-FUN-CODE-OFFSET"
"FUN-END-BREAKPOINT-TRAP"
- "SIMPLE-FUN-HEADER-CODE-OFFSET"
- "SIMPLE-FUN-HEADER-NEXT-SLOT"
- "SIMPLE-FUN-HEADER-SELF-SLOT"
"SIMPLE-FUN-HEADER-WIDETAG"
- "SIMPLE-FUN-HEADER-TYPE-SLOT"
"SIMPLE-FUN-NAME-SLOT"
"SIMPLE-FUN-NEXT-SLOT"
"FUN-POINTER-LOWTAG"
"SIMPLE-FUN-SELF-SLOT"
"SIMPLE-FUN-TYPE-SLOT"
- "GENCGC-PAGE-SIZE"
- #!+ppc "PSEUDO-ATOMIC-INTERRUPTED-FLAG"
- #!+ppc "PSEUDO-ATOMIC-FLAG"
+ "GENCGC-CARD-BYTES"
+ "GENCGC-ALLOC-GRANULARITY"
+ "GENCGC-RELEASE-GRANULARITY"
+ #!+(or ppc sparc) "PSEUDO-ATOMIC-INTERRUPTED-FLAG"
+ #!+(or ppc sparc) "PSEUDO-ATOMIC-FLAG"
+ #!+sb-safepoint "GLOBAL-SAFEPOINT-TRAP"
"GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER"
"IMMEDIATE-CHARACTER-SC-NUMBER" "IMMEDIATE-SAP-SC-NUMBER"
"IMMEDIATE-SC-NUMBER"
+ #!+inline-constants "CANONICALIZE-INLINE-CONSTANT"
+ #!+inline-constants "INLINE-CONSTANT-VALUE"
+ #!+inline-constants "EMIT-CONSTANT-SEGMENT-HEADER"
+ #!+inline-constants "SORT-INLINE-CONSTANTS"
+ #!+inline-constants "EMIT-INLINE-CONSTANT"
"INSTANCE-HEADER-WIDETAG" "INSTANCE-POINTER-LOWTAG"
"INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE"
"INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS"
#!+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"
+ "MEMORY-USAGE"
"N-LOWTAG-BITS"
"N-FIXNUM-TAG-BITS"
+ "N-FIXNUM-BITS"
"N-POSITIVE-FIXNUM-BITS"
"NEGATIVE-IMMEDIATE-SC-NUMBER"
"NFP-SAVE-OFFSET"
"OTHER-IMMEDIATE-2-LOWTAG"
"OTHER-IMMEDIATE-3-LOWTAG"
"OTHER-POINTER-LOWTAG"
+ "PAD0-LOWTAG" "PAD1-LOWTAG" "PAD2-LOWTAG"
+ "PAD3-LOWTAG" "PAD4-LOWTAG" "PAD5-LOWTAG"
"PAD-DATA-BLOCK" "PENDING-INTERRUPT-TRAP"
"PRIMITIVE-OBJECT" "PRIMITIVE-OBJECT-WIDETAG"
"PRIMITIVE-OBJECT-LOWTAG" "PRIMITIVE-OBJECT-NAME"
"PRIMITIVE-OBJECT-OPTIONS" "PRIMITIVE-OBJECT-P"
"PRIMITIVE-OBJECT-SIZE" "PRIMITIVE-OBJECT-SLOTS"
- "PRIMITIVE-OBJECT-VARIABLE-LENGTH-P" "PRINT-ALLOCATED-OBJECTS"
+ "PRIMITIVE-OBJECT-VARIABLE-LENGTH-P"
+ "PRINT-ALLOCATED-OBJECTS"
"RANDOM-IMMEDIATE-SC-NUMBER" "RATIO-DENOMINATOR-SLOT"
"RATIO-NUMERATOR-SLOT" "RATIO-SIZE" "RATIO-WIDETAG"
"*READ-ONLY-SPACE-FREE-POINTER*"
- "REGISTER-SAVE-PENALTY" "RETURN-PC-HEADER-WIDETAG"
+ "RETURN-PC-HEADER-WIDETAG"
"RETURN-PC-RETURN-POINT-OFFSET" "RETURN-PC-SAVE-OFFSET"
"SAETP-CTYPE" "SAETP-INITIAL-ELEMENT-DEFAULT"
"SAETP-N-BITS" "SAETP-TYPECODE" "SAETP-PRIMITIVE-TYPE-NAME"
"SAETP-N-PAD-ELEMENTS" "SAETP-SPECIFIER"
"SAETP-COMPLEX-TYPECODE" "SAETP-IMPORTANCE"
+ "SAETP-FIXNUM-P"
+ "VALID-BIT-BASH-SAETP-P"
"*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*"
"SANCTIFY-FOR-EXECUTION"
"SAP-POINTER-SLOT" "SAP-REG-SC-NUMBER" "SAP-SIZE"
"SIMPLE-ARRAY-UNSIGNED-BYTE-15-WIDETAG"
"SIMPLE-ARRAY-UNSIGNED-BYTE-16-WIDETAG"
"SIMPLE-ARRAY-UNSIGNED-BYTE-2-WIDETAG"
- ;; FIXME: 32/64-bit issues
- "SIMPLE-ARRAY-UNSIGNED-BYTE-29-WIDETAG"
+ "SIMPLE-ARRAY-UNSIGNED-FIXNUM-WIDETAG"
"SIMPLE-ARRAY-UNSIGNED-BYTE-31-WIDETAG"
"SIMPLE-ARRAY-UNSIGNED-BYTE-32-WIDETAG"
- ;; FIXME: 32/64-bit issues
- "SIMPLE-ARRAY-UNSIGNED-BYTE-60-WIDETAG"
"SIMPLE-ARRAY-UNSIGNED-BYTE-63-WIDETAG"
"SIMPLE-ARRAY-UNSIGNED-BYTE-64-WIDETAG"
"SIMPLE-ARRAY-UNSIGNED-BYTE-4-WIDETAG"
"SIMPLE-ARRAY-UNSIGNED-BYTE-7-WIDETAG"
"SIMPLE-ARRAY-UNSIGNED-BYTE-8-WIDETAG"
"SIMPLE-ARRAY-SIGNED-BYTE-16-WIDETAG"
- ;; FIXME: 32/64-bit issues
- "SIMPLE-ARRAY-SIGNED-BYTE-30-WIDETAG"
+ "SIMPLE-ARRAY-FIXNUM-WIDETAG"
"SIMPLE-ARRAY-SIGNED-BYTE-32-WIDETAG"
- ;; FIXME: 32/64-bit issues
- "SIMPLE-ARRAY-SIGNED-BYTE-61-WIDETAG"
"SIMPLE-ARRAY-SIGNED-BYTE-64-WIDETAG"
"SIMPLE-ARRAY-SIGNED-BYTE-8-WIDETAG"
"SIMPLE-BIT-VECTOR-WIDETAG"
"SINGLE-STEP-AROUND-TRAP"
"SINGLE-STEP-BEFORE-TRAP"
"SINGLE-VALUE-RETURN-BYTE-OFFSET" "SLOT-DOCS"
- "SLOT-LENGTH" "SLOT-NAME" "SLOT-OFFSET" "SLOT-OPTIONS"
+ "SLOT-NAME" "SLOT-OFFSET" "SLOT-OPTIONS"
"SLOT-REST-P" "*STATIC-FUNS*" "STATIC-FUN-OFFSET"
"STATIC-SYMBOL-OFFSET" "STATIC-SYMBOL-P"
"*STATIC-SPACE-FREE-POINTER*" "*STATIC-SYMBOLS*"
- "STRUCTURE-USAGE"
"SYMBOL-HASH-SLOT" "SYMBOL-HEADER-WIDETAG" "SYMBOL-NAME-SLOT"
"SYMBOL-PACKAGE-SLOT" "SYMBOL-PLIST-SLOT"
- "SYMBOL-SIZE" "SYMBOL-UNUSED-SLOT" "SYMBOL-VALUE-SLOT"
+ "SYMBOL-SIZE" "SYMBOL-VALUE-SLOT"
"*BINDING-STACK-START*"
"*CONTROL-STACK-START*" "*CONTROL-STACK-END*"
"CONTROL-STACK-POINTER-VALID-P"
"DYNAMIC-SPACE-START" "DYNAMIC-SPACE-END"
- #!+c-stack-is-control-stack "ALTERNATE-SIGNAL-STACK-START"
+ #!+gencgc "MAX-DYNAMIC-SPACE-END"
#!-gencgc "DYNAMIC-0-SPACE-START"
#!-gencgc "DYNAMIC-0-SPACE-END"
#!-gencgc "DYNAMIC-1-SPACE-START"
#!-gencgc "DYNAMIC-1-SPACE-END"
"READ-ONLY-SPACE-START" "READ-ONLY-SPACE-END"
- "TARGET-BYTE-ORDER" "TARGET-HEAP-ADDRESS-SPACE"
"STATIC-SPACE-START" "STATIC-SPACE-END"
#!+linkage-table "LINKAGE-TABLE-SPACE-START"
#!+linkage-table "LINKAGE-TABLE-SPACE-END"
#!+linkage-table "LINKAGE-TABLE-ENTRY-SIZE"
+ #!+sb-safepoint "GC-SAFEPOINT-PAGE-ADDR"
+ "TLS-SIZE"
"TRACE-TABLE-CALL-SITE"
"TRACE-TABLE-FUN-EPILOGUE" "TRACE-TABLE-FUN-PROLOGUE"
"TRACE-TABLE-NORMAL" "N-WIDETAG-BITS" "WIDETAG-MASK"
"UNWIND-BLOCK-CURRENT-UWP-SLOT" "UNWIND-BLOCK-ENTRY-PC-SLOT"
"UNWIND-BLOCK-SIZE" "VALUE-CELL-HEADER-WIDETAG" "VALUE-CELL-SIZE"
"VALUE-CELL-VALUE-SLOT" "VECTOR-DATA-OFFSET" "VECTOR-LENGTH-SLOT"
- "VECTOR-MUST-REHASH-SUBTYPE" "VECTOR-NORMAL-SUBTYPE"
+ "VECTOR-NORMAL-SUBTYPE"
"VECTOR-VALID-HASHING-SUBTYPE"
"WEAK-POINTER-BROKEN-SLOT" "WEAK-POINTER-NEXT-SLOT"
"WEAK-POINTER-SIZE" "WEAK-POINTER-WIDETAG"
"WEAK-POINTER-VALUE-SLOT"
- "WORD" "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS"
+ "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS"
"WORD-REG-SC-NUMBER" "WORD-SHIFT"
#!+win32 "CONTEXT-RESTORE-TRAP"
"ZERO-SC-NUMBER"))
"*WALK-FORM-EXPAND-MACROS-P*"
"VAR-LEXICAL-P" "VAR-SPECIAL-P"
"VAR-GLOBALLY-SPECIAL-P"
- "*VAR-DECLARATIONS*" "VAR-DECLARATION"
+ "VAR-DECLARATION"
;; These were exported from the original PCL version of this
;; package, but aren't used in SBCL.
:name "SB!EVAL"
:doc "internal: the evaluator implementation used to execute code without compiling it."
:use ("CL" "SB!KERNEL" "SB!EXT")
+ :reexport ("*EVAL-CALLS*")
:export ("INTERPRETED-FUNCTION"
"INTERPRETED-FUNCTION-P"
"INTERPRETED-FUNCTION-NAME"
+ "INTERPRETED-FUNCTION-DEBUG-NAME"
"INTERPRETED-FUNCTION-LAMBDA-LIST"
+ "INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST"
+ "INTERPRETED-FUNCTION-DECLARATIONS"
"INTERPRETED-FUNCTION-DOCUMENTATION"
"INTERPRETED-FUNCTION-BODY"
"INTERPRETED-FUNCTION-SOURCE-LOCATION"
"MAKE-NULL-ENVIRONMENT"
"EVAL-IN-NATIVE-ENVIRONMENT"
"PREPARE-FOR-COMPILE"
- "COUNT-EVAL-CALLS"
- "*EVAL-LEVEL*"
- "*EVAL-CALLS*"))
+ "*EVAL-LEVEL*"))
#!+win32
#s(sb-cold:package-data
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"
- "WITH-PROCESS-TIMES" "GET-VERSION-EX")))
+ "CLOSE-HANDLE"
+ "CREATE-FILE"
+ "CREATE-FILE-MAPPING"
+ "CRYPT-GEN-RANDOM"
+ "DWORD"
+ "FD-CLEAR-INPUT"
+ "FD-LISTEN"
+ "FILE-CREATE-ALWAYS"
+ "FILE-CREATE-NEW"
+ "FILE-OPEN-ALWAYS"
+ "FILE-OPEN-EXISTING"
+ "FILE-TRUNCATE-EXISTING"
+ "FLUSH-CONSOLE-INPUT-BUFFER"
+ "FLUSH-VIEW-OF-FILE"
+ "FORMAT-MESSAGE"
+ "GET-FILE-ATTRIBUTES"
+ "GET-FILE-SIZE-EX"
+ "GET-FILE-TYPE"
+ "GET-LAST-ERROR"
+ "GET-OSFHANDLE"
+ "GET-VERSION-EX"
+ "HANDLE"
+ "HANDLE-CLEAR-INPUT"
+ "HANDLE-LISTEN"
+ "INT-PTR"
+ "INVALID-HANDLE"
+ "LSEEKI64"
+ "MAP-VIEW-OF-FILE"
+ "MILLISLEEP"
+ "PEEK-CONSOLE-INPUT"
+ "PEEK-NAMED-PIPE"
+ "READ-FILE"
+ "UNIXLIKE-CLOSE"
+ "UNIXLIKE-OPEN"
+ "UNMAP-VIEW-OF-FILE"
+ "WAIT-OBJECT-OR-SIGNAL"
+ "WRITE-FILE"
+ "WITH-PROCESS-TIMES")))