#!+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"
"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"
;; 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"
"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"
+ "*PACK-ASSIGN-COSTS*" "*PACK-OPTIMIZE-SAVES*"
+ "*TN-WRITE-COSTS*"))
+
+ #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"