#!+sb-simd-pack "%SIMD-PACK-UB32S"
#!+sb-simd-pack "%SIMD-PACK-UB64S"
#!+sb-simd-pack "%SIMD-PACK-DOUBLES"
- #!+sb-simd-pack "%SIMD-PACK-SINGLES"))
+ #!+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"
"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"
"%BREAK"
"NTH-BUT-WITH-SANE-ARG-ORDER"
"BIT-VECTOR-="
+ "PATHNAME="
+ "HASH-TABLE-EQUALP"
"READ-EVALUATED-FORM"
"MAKE-UNPRINTABLE-OBJECT"
"POWER-OF-TWO-CEILING"
"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+"
"%LASTN/BIGNUM"
"%LOG1P"
#!+long-float "%LONG-FLOAT"
+ "%MAKE-ARRAY"
"%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE"
"%MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR"
"%MAKE-RATIO" "%MAKE-LISP-OBJ"
"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"
"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"
"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"
"DEFAULT-STRUCTURE-PRINT"
"LAYOUT" "LAYOUT-LENGTH" "LAYOUT-PURE" "DSD-RAW-TYPE"
;; symbols from former SB!CONDITIONS
"*HANDLER-CLUSTERS*" "*RESTART-CLUSTERS*"
- "*CONDITION-RESTARTS*" "CASE-FAILURE"
- "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
- "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-SLOT-INITARGS"
"CONDITION-SLOT-INITFORM"
"CONDITION-SLOT-INITFORM-P"
+ "CONDITION-SLOT-INITFUNCTION"
"CONDITION-SLOT-NAME" "CONDITION-SLOT-READERS"
"CONDITION-SLOT-WRITERS"
"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"))
+ "%SET-FDEFINITION" "%SCHARSET"
+ "%RPLACD" "%RPLACA" "%PUT" "%CHARSET"))
#s(sb-cold:package-data
:name "SB!THREAD"
"THREAD-ERROR"
"THREAD-ERROR-THREAD"
"THREAD-ALIVE-P"
- "THREAD-EMPHEMERAL-P"
+ "THREAD-EPHEMERAL-P"
"THREAD-NAME"
"THREAD-YIELD"
"FOREIGN-THREAD"
"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
"*PERIODIC-POLLING-PERIOD*"
"*RUNTIME-DLHANDLE*"
"*SHARED-OBJECTS*"
+ #!-sb-dynamic-core
"*STATIC-FOREIGN-SYMBOLS*"
"*STDERR*" "*STDIN*"
"*STDOUT*"
"FILE-TRUNCATE-EXISTING"
"FLUSH-CONSOLE-INPUT-BUFFER"
"FLUSH-VIEW-OF-FILE"
- "FORMAT-MESSAGE"
+ "FORMAT-SYSTEM-MESSAGE"
"GET-FILE-ATTRIBUTES"
"GET-FILE-SIZE-EX"
"GET-FILE-TYPE"