: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"
"MAKE-SEGMENT" "SEGMENT-TYPE" "ASSEMBLE"
"INST" "LABEL" "LABEL-P" "GEN-LABEL"
- "EMIT-LABEL" "LABEL-POSITION" "APPEND-SEGMENT" "FINALIZE-SEGMENT"
- "ON-SEGMENT-CONTENTS-VECTORLY" "WRITE-SEGMENT-CONTENTS"
+ "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"
#!+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"
;; FIXME: 32/64-bit issues
"CHECK-UNSIGNED-BYTE-32" "CHECK-UNSIGNED-BYTE-64"
"CLOSURE-INIT" "CLOSURE-REF" "CLOSURE-INIT-FROM-FP"
- "CODE-CONSTANT-REF" "CODE-CONSTANT-SET"
"*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"
"DEFKNOWN" "DEFOPTIMIZER"
"DEFTRANSFORM" "DERIVE-TYPE"
"EMIT-BLOCK-HEADER"
- "ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP"
"PHYSENV-DEBUG-LIVE-TN" "PHYSENV-LIVE-TN"
"FAST-SYMBOL-VALUE"
"FAST-SYMBOL-GLOBAL-VALUE"
- "FIND-SAVED-FP-AND-PC"
"FIXUP-NOTE-KIND"
"FIXUP-NOTE-FIXUP"
"FIXUP-NOTE-POSITION"
"HALT"
"IF-EQ"
"IMMEDIATE-TN-P"
- "INLINE-SYNTACTIC-CLOSURE-LAMBDA"
+ "INHIBIT-SAFEPOINTS"
"INSERT-STEP-CONDITIONS"
"IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
"IR2-PHYSENV-NUMBER-STACK-P"
"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"
"PRIMITIVE-TYPE-INDIRECT-CELL-TYPE"
"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-COMPILER-ERROR-RESIGNALLING"
"WITH-SOURCE-LOCATION"
"*SOURCE-LOCATION-THUNKS*"
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"
"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"
+ "NO-DEBUG-FUN-RETURNS" "PREPROCESS-FOR-EVAL"
"EVAL-IN-FRAME" "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT"
- "TOP-FRAME" "UNHANDLED-DEBUG-CONDITION" "UNKNOWN-CODE-LOCATION"
- "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VAR"
+ "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"
"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"
:name "SB!EXT"
:doc "public: miscellaneous supported extensions to the ANSI Lisp spec"
:use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!GRAY")
- :export (;; Information about how the program was invoked is
+ :export ( ;; Information about how the program was invoked is
;; nonstandard but very useful.
"*POSIX-ARGV*" "*CORE-PATHNAME*" "*RUNTIME-PATHNAME*"
"POSIX-GETENV" "POSIX-ENVIRON"
"*USERINIT-PATHNAME-FUNCTION*"
"*SYSINIT-PATHNAME-FUNCTION*"
- ;; Atomic operations and types related to them
+ ;; 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"
"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"
;; 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*"
"DEFGLOBAL"
"SYMBOL-GLOBAL-VALUE"
- ;; package-locking stuff
+ ;; 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"
;; and one for controlling same at runtime
"*MUFFLED-WARNINGS*"
+ ;; specification which print errors to ignore ala *break-on-signal*
+ "*SUPPRESS-PRINT-ERRORS*"
+
;; extended declarations..
"ALWAYS-BOUND" "FREEZE-TYPE" "GLOBAL" "INHIBIT-WARNINGS"
"MAYBE-INLINE"
;; ..and inspector of compiler policy
"DESCRIBE-COMPILER-POLICY"
"RESTRICT-COMPILER-POLICY"
- "WITH-COMPILER-POLICY"
;; a special form for breaking out of our "declarations
;; are assertions" default
"*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"
+
+ ;; versioning utility
+ "ASSERT-VERSION->="))
#s(sb-cold:package-data
:name "SB!FORMAT"
:doc
"private: miscellaneous unsupported extensions to the ANSI spec. Much of
the stuff in here originated in CMU CL's EXTENSIONS package and is retained,
-possibly temporariliy, because it might be used internally."
+possibly temporarily, because it might be used internally."
:use ("CL" "SB!ALIEN" "SB!GRAY" "SB!FASL" "SB!SYS")
:export (;; lambda list keyword extensions
"&MORE"
"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*"
"BAD-TYPE"
"CLOSED-STREAM-ERROR"
"COMPILED-PROGRAM-ERROR"
+ "COMPILER-MACRO-KEYWORD-PROBLEM"
"ENCAPSULATED-CONDITION"
"INTERPRETED-PROGRAM-ERROR"
"INVALID-ARRAY-ERROR"
"SEQUENCE-BOUNDING-INDICES-BAD-ERROR"
"SPECIAL-FORM-FUNCTION"
"STYLE-WARN" "SIMPLE-COMPILER-NOTE"
-
+ "TWO-ARG-CHAR-EQUAL" "TWO-ARG-CHAR-NOT-EQUAL"
+ "TWO-ARG-CHAR-LESSP" "TWO-ARG-CHAR-NOT-LESSP"
+ "TWO-ARG-CHAR-GREATERP" "TWO-ARG-CHAR-NOT-GREATERP"
+ "CHAR-EQUAL-CONSTANT"
;; FIXME: potential SB!EXT exports
"CHARACTER-CODING-ERROR"
"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"
- "READ-UNREADABLE-REPLACEMENT"
-
;; bootstrapping magic, to make things happen both in
;; the cross-compilation host compiler's environment and
;; Deprecating stuff
"DEFINE-DEPRECATED-FUNCTION"
+ "DEFINE-DEPRECATED-VARIABLE"
+ "DEPRECATED-VARIABLE"
+ "CHECK-DEPRECATED-VARIABLE"
"EARLY-DEPRECATION-WARNING"
"LATE-DEPRECATION-WARNING"
"FINAL-DEPRECATION-WARNING"
"%BREAK"
"NTH-BUT-WITH-SANE-ARG-ORDER"
"BIT-VECTOR-="
+ "PATHNAME="
+ "HASH-TABLE-EQUALP"
"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"
+ "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"
"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
"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"
+ "MISSING-ARG"
"FEATUREP"
"FLUSH-STANDARD-OUTPUT-STREAMS"
"WITH-UNIQUE-NAMES" "MAKE-GENSYM-LIST"
"POSITIVE-PRIMEP"
"EVAL-IN-LEXENV"
"SIMPLE-EVAL-IN-LEXENV"
- "DEBUG-NAMIFY"
"FORCE" "DELAY" "PROMISE-READY-P"
"FIND-RESTART-OR-CONTROL-ERROR"
"LOAD-AS-SOURCE"
"SET-FLOATING-POINT-MODES"
"WITH-FLOAT-TRAPS-MASKED"
- ;; compatibility hacks for old-style CMU CL data formats
- "UNIX-ENVIRONMENT-CMUCL-FROM-SBCL"
- "UNIX-ENVIRONMENT-SBCL-FROM-CMUCL"
-
;; a sort of quasi-unbound tag for use in hash tables
"+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"
"%ADJOIN"
"%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"
"%ATAN" "%ATAN2" "%ATANH"
"%CALLER-FRAME"
"%CALLER-PC"
+ "%CEILING"
"%CHECK-BOUND"
"%CHECK-GENERIC-SEQUENCE-BOUNDS"
"%CHECK-VECTOR-SEQUENCE-BOUNDS"
"%COMPARE-AND-SWAP-SYMBOL-VALUE"
"%CONCATENATE-TO-BASE-STRING"
"%CONCATENATE-TO-STRING"
+ "CONTAINS-UNKNOWN-TYPE-P"
"%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"
+ "FIXNUM-MOD-P"
"%HYPOT" "%LDB" "%LOG" "%LOGB" "%LOG10"
"%LAST0"
"%LAST1"
"%LASTN/BIGNUM"
"%LOG1P"
#!+long-float "%LONG-FLOAT"
+ "%MAKE-ARRAY"
"%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-KEY-TEST-NOT"
"%MEMBER-TEST"
"%MEMBER-TEST-NOT"
+ "%MULTIPLY-HIGH"
"%NEGATE" "%POW"
"%OTHER-POINTER-WIDETAG"
"%PUTHASH"
"%RASSOC-KEY-TEST-NOT"
"%RASSOC-TEST"
"%RASSOC-TEST-NOT"
- "%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"
+ "%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/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"
"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"
#!+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-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"
+ "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" "NATIVE-BYTE-ORDER"
+ "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"
"SCALE-DOUBLE-FLOAT"
#!+long-float "SCALE-LONG-FLOAT"
"SCALE-SINGLE-FLOAT"
+ "SCHWARTZIAN-STABLE-SORT-LIST"
"SCRUB-POWER-CACHE"
"SEQUENCEP" "SEQUENCE-COUNT" "SEQUENCE-END"
"SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE"
"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-*-TO-T"
- "TYPE-DIFFERENCE" "TYPE-EXPAND" "TYPE-INTERSECTION"
+ "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"
- "UNDEFINED-FUN-ERROR" "UNION-TYPE" "UNION-TYPE-P"
+ "UNDEFINED-FUN-ERROR" "UNDEFINED-ALIEN-FUN-ERROR"
+ "UNION-TYPE" "UNION-TYPE-P"
"UNION-TYPE-TYPES" "UNKNOWN-ERROR"
"UNKNOWN-KEY-ARG-ERROR" "UNKNOWN-TYPE" "UNKNOWN-TYPE-P"
"UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR"
"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-29-P" "VECTOR-UNSIGNED-BYTE-31-P"
- "VECTOR-UNSIGNED-BYTE-32-P" "VECTOR-UNSIGNED-BYTE-60-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-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)
"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"
"%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-GLOBAL-VALUE" "%SET-SYMBOL-PACKAGE"
+ "SET-SYMBOL-GLOBAL-VALUE"
"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" "UNDECLARE-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"
"CLASSOID-CELL-PCL-CLASS"
"CLASSOID-CELL-TYPEP"
"%CLEAR-CLASSOID"
- "FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
+ "FIND-CLASSOID-CELL"
"%RANDOM-DOUBLE-FLOAT"
#!+long-float "%RANDOM-LONG-FLOAT"
"%RANDOM-SINGLE-FLOAT" "STATIC-CLASSOID"
"%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK" "BIG-RANDOM-CHUNK"
+ "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"
"REGISTER-LAYOUT"
- "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
+ "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"
- "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
- "DESCRIBE-CONDITION" "MAKE-RESTART" "COERCE-TO-CONDITION"
+
+ "CASE-FAILURE" "NAMESTRING-PARSE-ERROR"
+ "NAMESTRING-PARSE-ERROR-OFFSET"
+ "MAKE-RESTART" "RESTART-ASSOCIATED-CONDITIONS"
+ "COERCE-TO-CONDITION"
+
+ "ALLOCATE-CONDITION"
"CONDITION-READER-FUNCTION"
"CONDITION-WRITER-FUNCTION"
"CONDITION-SLOT-INITARGS"
"CONDITION-SLOT-INITFORM"
"CONDITION-SLOT-INITFORM-P"
+ "CONDITION-SLOT-INITFUNCTION"
"CONDITION-SLOT-NAME" "CONDITION-SLOT-READERS"
"CONDITION-SLOT-WRITERS"
"REDEFINITION-WITH-DEFMACRO"
"REDEFINITION-WITH-DEFGENERIC"
"REDEFINITION-WITH-DEFMETHOD"
- "REDEFINITION-REPLACES-GENERIC-FUNCTION-P"
- "REDEFINITION-REPLACES-COMPILED-FUNCTION-WITH-INTERPRETED-P"
"UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P"
"UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P"
"UNINTERESTING-METHOD-REDEFINITION-P"
"STREAM-COLD-INIT-OR-RESET"
;; Cleanups to run before saving a core
- "DEBUG-DEINIT"
"FLOAT-DEINIT"
"FOREIGN-DEINIT"
"PROFILE-DEINIT"
"STRING<*" "STRING/=*" "%SVSET"
"%SP-STRING-COMPARE" "%SETNTH" "%SETELT"
"%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"
- "%SET-FDEFINITION" "%SCHARSET" "%SBITSET"
- "%RPLACD" "%RPLACA" "%PUT" "%CHARSET" "%BITSET"
- "%ASET" "%ARRAY-TYPEP"))
+ "%SET-FDEFINITION" "%SCHARSET"
+ "%RPLACD" "%RPLACA" "%PUT" "%CHARSET"))
#s(sb-cold:package-data
:name "SB!THREAD"
"INTERRUPT-THREAD"
"INTERRUPT-THREAD-ERROR"
"INTERRUPT-THREAD-ERROR-THREAD"
+ "RETURN-FROM-THREAD"
+ "ABORT-THREAD"
+ "MAIN-THREAD-P"
+ "MAIN-THREAD"
"JOIN-THREAD"
"JOIN-THREAD-ERROR"
"JOIN-THREAD-ERROR-THREAD"
"THREAD-ERROR"
"THREAD-ERROR-THREAD"
"THREAD-ALIVE-P"
+ "THREAD-EPHEMERAL-P"
"THREAD-NAME"
"THREAD-YIELD"
+ "FOREIGN-THREAD"
+ #!+(and sb-safepoint-strictly (not win32))
+ "SIGNAL-HANDLING-THREAD"
;; Memory barrier
"BARRIER"
;; Mutexes
"SEMAPHORE-COUNT"
"SIGNAL-SEMAPHORE"
"TRY-SEMAPHORE"
- "WAIT-ON-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"
"WRITER-METHOD-CLASS"))
#s(sb-cold:package-data
+ :name "SB!REGALLOC"
+ :doc "private: implementation of the compiler's register allocator"
+ :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!ASSEM" "SB!BIGNUM"
+ #!+sb-dyncount "SB-DYNCOUNT" "SB!EXT" "SB!FASL" "SB!INT"
+ "SB!KERNEL" "SB!SYS"
+ "SB!C")
+ :import-from (("SB!C"
+ "*LOOP-ANALYZE*"
+ "BLOCK-INFO" "BLOCK-LAST" "BLOCK-LOOP" "BLOCK-NEXT"
+ "CLEAR-BIT-VECTOR" "COMPONENT-HEAD" "COMPONENT-TAIL"
+ "DEFEVENT" "DELETE-VOP" "DO-IR2-BLOCKS" "DO-LIVE-TNS"
+ "EMIT-LOAD-TEMPLATE" "EVENT" "FIND-IN"
+ "FINITE-SB" "FINITE-SB-ALWAYS-LIVE"
+ "FINITE-SB-ALWAYS-LIVE-COUNT" "FINITE-SB-CONFLICTS"
+ "FINITE-SB-CURRENT-SIZE" "FINITE-SB-LAST-BLOCK-COUNT"
+ "FINITE-SB-LAST-OFFSET" "FINITE-SB-LIVE-TNS"
+ "FINITE-SB-SIZE-ALIGNMENT" "FINITE-SB-SIZE-INCREMENT"
+ "GET-OPERAND-INFO" "GLOBAL-CONFLICTS-BLOCK"
+ "GLOBAL-CONFLICTS-CONFLICTS" "GLOBAL-CONFLICTS-KIND"
+ "GLOBAL-CONFLICTS-NEXT-TNWISE" "GLOBAL-CONFLICTS-NUMBER"
+ "GLOBAL-CONFLICTS-NEXT-BLOCKWISE" "GLOBAL-CONFLICTS-TN"
+ "IR2-BLOCK" "IR2-BLOCK-COUNT" "IR2-BLOCK-GLOBAL-TNS"
+ "IR2-BLOCK-LAST-VOP" "IR2-BLOCK-LIVE-IN"
+ "IR2-BLOCK-LOCAL-TN-COUNT" "IR2-BLOCK-LOCAL-TNS"
+ "IR2-BLOCK-NEXT" "IR2-BLOCK-NUMBER" "IR2-BLOCK-PREV"
+ "IR2-BLOCK-START-VOP" "IR2-COMPONENT"
+ "IR2-COMPONENT-GLOBAL-TN-COUNTER"
+ "IR2-COMPONENT-NORMAL-TNS" "IR2-COMPONENT-RESTRICTED-TNS"
+ "IR2-COMPONENT-SPILLED-TNS" "IR2-COMPONENT-SPILLED-VOPS"
+ "IR2-COMPONENT-WIRED-TNS"
+ "LAMBDA-PARENT" "LEXENV-LAMBDA" "LISTIFY-RESTRICTIONS"
+ "LOCAL-TN-BIT-VECTOR" "LOCAL-TN-COUNT" "LOCAL-TN-LIMIT"
+ "LOCAL-TN-NUMBER" "LOCAL-TN-VECTOR"
+ "LOOP-DEPTH" "MAKE-TN" "MOVE-OPERAND" "NODE" "NODE-LEXENV"
+ "OPERAND-PARSE-NAME" "POSITION-IN"
+ "PRIMITIVE-TYPE-SCS" "PRINT-TN-GUTS"
+ "SB-KIND" "SB-SIZE"
+ "SC-ALIGNMENT" "SC-ALLOWED-BY-PRIMITIVE-TYPE"
+ "SC-ALTERNATE-SCS" "SC-CONSTANT-SCS" "SC-ELEMENT-SIZE"
+ "SC-LOCATIONS" "SC-MOVE-FUNS" "SC-RESERVE-LOCATIONS"
+ "SC-SAVE-P" "SC-VECTOR"
+ "SET-BIT-VECTOR"
+ "SSET" "SSET-ELEMENT" "SSET-ADJOIN" "SSET-DELETE"
+ "SSET-MEMBER" "SSET-EMPTY" "COPY-SSET"
+ "TEMPLATE-NAME"
+ "TN" "TN-COST" "TN-GLOBAL-CONFLICTS" "TN-KIND" "TN-LEAF"
+ "TN-LOCAL" "TN-LOCAL-CONFLICTS" "TN-LOCAL-NUMBER"
+ "TN-LOOP-DEPTH" "TN-NEXT" "TN-NUMBER" "TN-PRIMITIVE-TYPE"
+ "TN-READS" "TN-SAVE-TN" "TN-WRITES"
+ "TNS-CONFLICT" "TNS-CONFLICT-GLOBAL-GLOBAL"
+ "TNS-CONFLICT-LOCAL-GLOBAL"
+ "VOP" "VOP-ARGS" "VOP-INFO" "VOP-INFO-ARG-LOAD-SCS"
+ "VOP-INFO-MOVE-ARGS" "VOP-INFO-NAME"
+ "VOP-INFO-RESULT-LOAD-SCS" "VOP-INFO-SAVE-P"
+ "VOP-INFO-TARGET-FUN" "VOP-NEXT" "VOP-NODE"
+ "VOP-PARSE-OR-LOSE" "VOP-PARSE-TEMPS" "VOP-PREV"
+ "VOP-REFS" "VOP-RESULTS" "VOP-SAVE-SET" "VOP-TEMPS"))
+ :export ("PACK" "TARGET-IF-DESIRABLE" "*REGISTER-ALLOCATION-METHOD*"
+ "*PACK-ITERATIONS*"
+ "*PACK-ASSIGN-COSTS*" "*PACK-OPTIMIZE-SAVES*"
+ "*TN-WRITE-COSTS*" "*TN-LOOP-DEPTH-MULTIPLIER*"))
+
+ #s(sb-cold:package-data
:name "SB!PCL"
:doc
"semi-public: This package includes useful meta-object protocol
"CANONIZE-TEST" "CANONIZE-KEY"
- "LENGTH" "ELT"
+ "EMPTYP" "LENGTH" "ELT"
"MAKE-SEQUENCE-LIKE" "ADJUST-SEQUENCE"
"COUNT" "COUNT-IF" "COUNT-IF-NOT"
;; SB!KERNEL.)
"%PRIMITIVE"
"%STANDARD-CHAR-P"
+ "*EXIT-ERROR-HANDLER*"
+ "*EXIT-IN-PROCESS*"
"*ALLOW-WITH-INTERRUPTS*"
"*INTERRUPTS-ENABLED*"
"*INTERRUPT-PENDING*"
+ #!+sb-thruption "*THRUPTION-PENDING*"
"*LINKAGE-INFO*"
"*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"
"*PERIODIC-POLLING-FUNCTION*"
"*PERIODIC-POLLING-PERIOD*"
"*RUNTIME-DLHANDLE*"
"*SHARED-OBJECTS*"
+ #!-sb-dynamic-core
"*STATIC-FOREIGN-SYMBOLS*"
"*STDERR*" "*STDIN*"
"*STDOUT*"
"ENABLE-INTERRUPT"
"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"
"MACRO" "MAKE-FD-STREAM"
"MEMORY-FAULT-ERROR"
"MEMMOVE"
+ "OS-EXIT"
"OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES"
"READ-N-BYTES"
"REMOVE-FD-HANDLER"
"SAP-INT"
"SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-WORD"
"SAP-REF-8"
- "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"
"USER-HOMEDIR"
"WITH-RESTARTED-SYSCALL"
"SB-MKSTEMP"
+ "UNIX-OFFSET"
"FD-TYPE"
;; stuff with a one-to-one mapping to Unix constructs
"TIOCGPGRP" "TIOCGWINSZ" "TIOCNOTTY" "TIOCSETC" "TIOCSETP"
"TIOCSLTC" "TIOCSPGRP" "TIOCSWINSZ" "TV-SEC" "TV-USEC"
"TZ-DSTTIME" "TZ-MINUTESWEST" "UID-T" "UNIX-CLOSE"
- "UNIX-CLOSEDIR" "UNIX-DIRENT-NAME" "UNIX-DUP""UNIX-EXIT"
+ "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-OPENDIR" "UNIX-PATHNAME" "UNIX-PID"
"UNIX-PIPE" "UNIX-SIMPLE-POLL" "UNIX-READ" "UNIX-READDIR" "UNIX-READLINK" "UNIX-REALPATH"
"SB!EXT" "SB!FASL" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!UNIX")
:reexport ("WORD")
:export ("*ALLOC-SIGNAL*"
- "*ASSEMBLY-UNIT-LENGTH*"
"*PRIMITIVE-OBJECTS*"
"+HIGHEST-NORMAL-GENERATION+"
"+PSEUDO-STATIC-GENERATION+"
"%COMPILER-BARRIER" "%DATA-DEPENDENCY-BARRIER"
"%MEMORY-BARRIER" "%READ-BARRIER" "%WRITE-BARRIER"
"AFTER-BREAKPOINT-TRAP"
+ #!+(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"
"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
"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-BYTES"
- #!+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"
#!+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"
"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"
"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"
#!+gencgc "MAX-DYNAMIC-SPACE-END"
- #!+c-stack-is-control-stack "ALTERNATE-SIGNAL-STACK-START"
#!-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"
"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"
"*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.
"MAKE-NULL-ENVIRONMENT"
"EVAL-IN-NATIVE-ENVIRONMENT"
"PREPARE-FOR-COMPILE"
- "COUNT-EVAL-CALLS"
"*EVAL-LEVEL*"))
#!+win32
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-SYSTEM-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")))
projects / sbcl.git / blobdiff