Fix make-array transforms.

[sbcl.git] / package-data-list.lisp-expr

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index f769209..612236d 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -243,7 +243,6 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "CHECK-SYMBOL"
                ;; FIXME: 32/64-bit issues
                "CHECK-UNSIGNED-BYTE-32" "CHECK-UNSIGNED-BYTE-64"
-               "CHECK-MOD-FIXNUM"
                "CLOSURE-INIT" "CLOSURE-REF" "CLOSURE-INIT-FROM-FP"
                "*CODE-COVERAGE-INFO*"
                "COMPARE-AND-SWAP-SLOT"
@@ -394,7 +393,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "GENERATE-CALL-SEQUENCE"
                "GENERATE-RETURN-SEQUENCE"
                "LOCATION-NUMBER"
-
+               "WITH-COMPILER-ERROR-RESIGNALLING"
                "WITH-SOURCE-LOCATION"
                "*SOURCE-LOCATION-THUNKS*"
 
@@ -824,6 +823,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "DELETE-DIRECTORY"
                "SET-SBCL-SOURCE-LOCATION"
                "*DISASSEMBLE-ANNOTATE*"
+               "PRINT-SYMBOL-WITH-PREFIX"
 
                ;; stepping interface
                "STEP-CONDITION" "STEP-FORM-CONDITION" "STEP-FINISHED-CONDITION"
@@ -871,7 +871,10 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                #!+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"
@@ -907,7 +910,7 @@ Lisp extension proposal by David N. Gray"
       :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"
@@ -1004,7 +1007,10 @@ possibly temporariliy, because it might be used internally."
                "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"
@@ -1065,6 +1071,8 @@ possibly temporariliy, because it might be used internally."
                "%BREAK"
                "NTH-BUT-WITH-SANE-ARG-ORDER"
                "BIT-VECTOR-="
+               "PATHNAME="
+               "HASH-TABLE-EQUALP"
                "READ-EVALUATED-FORM"
                "MAKE-UNPRINTABLE-OBJECT"
                "POWER-OF-TWO-CEILING"
@@ -1221,10 +1229,6 @@ possibly temporariliy, because it might be used internally."
                "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+"
 
@@ -1347,6 +1351,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%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"
@@ -1357,6 +1362,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%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"
@@ -1364,6 +1370,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%LASTN/BIGNUM"
                "%LOG1P"
                #!+long-float "%LONG-FLOAT"
+               "%MAKE-ARRAY"
                "%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE"
                "%MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR"
                "%MAKE-RATIO" "%MAKE-LISP-OBJ"
@@ -1616,7 +1623,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "OBJECT-NOT-DOUBLE-FLOAT-ERROR" "OBJECT-NOT-FIXNUM-ERROR"
                "OBJECT-NOT-FLOAT-ERROR" "OBJECT-NOT-FUN-ERROR"
                "OBJECT-NOT-INSTANCE-ERROR" "OBJECT-NOT-INTEGER-ERROR"
-               "OBJECT-NOT-LIST-ERROR" "OBJECT-NOT-MOD-ERROR"
+               "OBJECT-NOT-LIST-ERROR"
                #!+long-float "OBJECT-NOT-LONG-FLOAT-ERROR"
                "OBJECT-NOT-NUMBER-ERROR" "OBJECT-NOT-RATIO-ERROR"
                "OBJECT-NOT-RATIONAL-ERROR" "OBJECT-NOT-REAL-ERROR"
@@ -1696,6 +1703,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "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"
@@ -1757,7 +1765,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "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"
@@ -1860,6 +1869,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "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"
@@ -1922,9 +1932,11 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
 
                ;; 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"
 
@@ -1936,6 +1948,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "CONDITION-SLOT-INITARGS"
                "CONDITION-SLOT-INITFORM"
                "CONDITION-SLOT-INITFORM-P"
+               "CONDITION-SLOT-INITFUNCTION"
                "CONDITION-SLOT-NAME" "CONDITION-SLOT-READERS"
                "CONDITION-SLOT-WRITERS"
 
@@ -1988,7 +2001,6 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "STREAM-COLD-INIT-OR-RESET"
 
                ;; Cleanups to run before saving a core
-               "DEBUG-DEINIT"
                "FLOAT-DEINIT"
                "FOREIGN-DEINIT"
                "PROFILE-DEINIT"
@@ -2010,9 +2022,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "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"
@@ -2041,7 +2052,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "THREAD-ERROR"
                "THREAD-ERROR-THREAD"
                "THREAD-ALIVE-P"
-               "THREAD-EMPHEMERAL-P"
+               "THREAD-EPHEMERAL-P"
                "THREAD-NAME"
                "THREAD-YIELD"
                "FOREIGN-THREAD"
@@ -2194,6 +2205,69 @@ ISBN 0-262-61074-4, with exceptions as noted in the User Manual."
                "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
@@ -2374,6 +2448,7 @@ SB-KERNEL) have been undone, but probably more remain."
                "*PERIODIC-POLLING-PERIOD*"
                "*RUNTIME-DLHANDLE*"
                "*SHARED-OBJECTS*"
+               #!-sb-dynamic-core
                "*STATIC-FOREIGN-SYMBOLS*"
                "*STDERR*" "*STDIN*"
                "*STDOUT*"
@@ -2919,7 +2994,7 @@ SBCL itself"
                "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"