1.0.28.19: faster ARRAY-DIMENSION for non-vectors

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

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 3329b3c..39cac6f 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -56,6 +56,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
              "NULL-ALIEN"
              "SAP-ALIEN" "SHORT" "SIGNED" "SLOT" "STRUCT"
              "UNDEFINED-ALIEN-ERROR"
+             "UNLOAD-SHARED-OBJECT"
              "UNSIGNED"
              "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-LONG-LONG" "UNSIGNED-SHORT"
              "UTF8-STRING"
@@ -125,13 +126,13 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "*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"
+               "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"
                "READS" "WRITES" "SEGMENT"
@@ -197,7 +198,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
 
                "*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*"
@@ -264,6 +265,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP"
                "PHYSENV-DEBUG-LIVE-TN" "PHYSENV-LIVE-TN"
                "FAST-SYMBOL-VALUE"
+               "FIND-SAVED-FP-AND-PC"
                "FIXUP-NOTE-KIND"
                "FIXUP-NOTE-FIXUP"
                "FIXUP-NOTE-POSITION"
@@ -274,7 +276,9 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "GET-VECTOR-SUBTYPE"
                "GET-TOPLEVELISH-FILE-INFO"
                "HALT"
-               "IF-EQ" "INLINE-SYNTACTIC-CLOSURE-LAMBDA"
+               "IF-EQ"
+               "IMMEDIATE-TN-P"
+               "INLINE-SYNTACTIC-CLOSURE-LAMBDA"
                "INSERT-STEP-CONDITIONS"
                "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
                "IR2-PHYSENV-NUMBER-STACK-P"
@@ -378,7 +382,9 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "VM-SUPPORT-ROUTINES-LOCATION-NUMBER"
 
                "WITH-SOURCE-LOCATION"
-               "*SOURCE-LOCATION-THUNKS*"))
+               "*SOURCE-LOCATION-THUNKS*"
+
+               "BRANCH-IF"))
 
    #s(sb-cold:package-data
       :name "SB!DEBUG"
@@ -449,7 +455,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "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"
+               "EVAL-IN-FRAME" "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT"
                "TOP-FRAME" "UNHANDLED-DEBUG-CONDITION" "UNKNOWN-CODE-LOCATION"
                "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VAR"
                "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE"))
@@ -575,12 +581,17 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "*POSIX-ARGV*" "*CORE-PATHNAME*"
                "POSIX-GETENV" "POSIX-ENVIRON"
 
+               ;; Atomic operations
                "COMPARE-AND-SWAP"
+               "ATOMIC-INCF"
+
+               ;; Timing information
+               "CALL-WITH-TIMING"
 
                ;; 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"
 
@@ -668,6 +679,9 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                ;; 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
@@ -863,6 +877,7 @@ possibly temporariliy, because it might be used internally."
                "COMPILED-PROGRAM-ERROR"
                "ENCAPSULATED-CONDITION"
                "INTERPRETED-PROGRAM-ERROR"
+               "INVALID-ARRAY-INDEX-ERROR"
                "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
                "SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR"
                "SIMPLE-READER-ERROR"
@@ -875,6 +890,7 @@ possibly temporariliy, because it might be used internally."
                "TRY-RESTART"
 
                ;; error-signalling facilities
+               "STANDARD-READTABLE-MODIFIED-ERROR"
                "ARRAY-BOUNDING-INDICES-BAD-ERROR"
                "SEQUENCE-BOUNDING-INDICES-BAD-ERROR"
 
@@ -978,6 +994,7 @@ possibly temporariliy, because it might be used internally."
                "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"
@@ -1183,6 +1200,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%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"
                "%ASSOC"
@@ -1198,11 +1216,14 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%ASSOC-TEST"
                "%ASSOC-TEST-NOT"
                "%ASIN" "%ASINH"
-               "%ATAN" "%ATAN2" "%ATANH" "%CALLER-FRAME-AND-PC"
+               "%ATAN" "%ATAN2" "%ATANH"
+               "%CALLER-FRAME"
+               "%CALLER-PC"
                "%CHECK-BOUND"
                "%CHECK-GENERIC-SEQUENCE-BOUNDS"
                "%CHECK-VECTOR-SEQUENCE-BOUNDS"
                "%CLOSURE-FUN" "%CLOSURE-INDEX-REF"
+               "%COMPARE-AND-SWAP-ARRAY-DISPLACED-FROM"
                "%COMPARE-AND-SWAP-CAR"
                "%COMPARE-AND-SWAP-CDR"
                "%COMPARE-AND-SWAP-INSTANCE-REF"
@@ -1226,6 +1247,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%LOG1P"
                #!+long-float "%LONG-FLOAT"
                "%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE"
+               "%MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR"
                "%MAKE-RATIO" "%MAKE-LISP-OBJ"
                "%MAKE-INSTANCE"
                "%MAKE-STRUCTURE-INSTANCE"
@@ -1266,6 +1288,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%RAW-SET-COMPLEX-DOUBLE" "%RAW-SET-COMPLEX-LONG"
                "%RAW-SET-COMPLEX-SINGLE" "%RAW-SET-DOUBLE"
                "%RAW-SET-LONG" "%RAW-SET-SINGLE" "%SCALB" "%SCALBN"
+               #!+(or x86 x86-64)
+               "%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"
@@ -1355,7 +1379,6 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "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"
@@ -1386,6 +1409,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "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"
@@ -1394,7 +1418,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                #!+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"
@@ -1619,7 +1643,9 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "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-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"
@@ -1630,6 +1656,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "VECTOR-TO-VECTOR*"
                "VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH" "WITH-ARRAY-DATA"
                "WITH-CIRCULARITY-DETECTION" "WRONG-NUMBER-OF-INDICES-ERROR"
+               "WITH-WORLD-LOCK"
 
                ;; bit bash fillers (FIXME: 32/64-bit issues)
                "UB1-BASH-FILL" "SYSTEM-AREA-UB1-FILL"
@@ -1667,7 +1694,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "OUTPUT-SYMBOL-NAME" "%COERCE-NAME-TO-FUN"
                "INVOKE-MACROEXPAND-HOOK" "DEFAULT-STRUCTURE-PRINT"
                "LAYOUT" "LAYOUT-LENGTH" "LAYOUT-PURE" "DSD-RAW-TYPE"
-               "DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE" "DD-COPIER"
+               "DEFSTRUCT-DESCRIPTION" "UNDECLARE-STRUCTURE" "DD-COPIER"
                "UNDEFINE-FUN-NAME" "DD-TYPE" "CLASSOID-STATE" "INSTANCE"
                "*TYPE-SYSTEM-INITIALIZED*" "FIND-LAYOUT" "DSD-NAME"
                "%TYPEP" "DD-RAW-INDEX" "DD-NAME" "CLASSOID-SUBCLASSES"
@@ -1696,7 +1723,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "CLASSOID-CELL-NAME"
                "CLASSOID-CELL-PCL-CLASS"
                "CLASSOID-CELL-TYPEP"
-               "CLEAR-CLASSOID"
+               "%CLEAR-CLASSOID"
                "FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
                "%RANDOM-DOUBLE-FLOAT"
                #!+long-float "%RANDOM-LONG-FLOAT"
@@ -1774,6 +1801,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "!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"
@@ -1781,6 +1809,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "!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"
@@ -1827,7 +1856,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "INTERRUPT-THREAD-ERROR-THREAD"
                "INTERRUPT-THREAD" "TERMINATE-THREAD" "DESTROY-THREAD"
                "THREAD-YIELD"
-               "MUTEX" "MAKE-MUTEX" "MUTEX-NAME" "MUTEX-VALUE"
+               "MUTEX" "MAKE-MUTEX" "MUTEX-NAME" "MUTEX-OWNER" "MUTEX-VALUE"
+               "HOLDING-MUTEX-P"
                "GET-MUTEX" "RELEASE-MUTEX" "WITH-MUTEX"
                "WITH-RECURSIVE-LOCK"
                "WAITQUEUE" "MAKE-WAITQUEUE" "WAITQUEUE-NAME"
@@ -2352,6 +2382,7 @@ structure representations"
                "*ALLOC-SIGNAL*"
                "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"
@@ -2433,7 +2464,7 @@ structure representations"
                "FUN-POINTER-LOWTAG"
                "SIMPLE-FUN-SELF-SLOT"
                "SIMPLE-FUN-TYPE-SLOT"
-               "GENCGC-PAGE-SIZE"
+               "GENCGC-PAGE-BYTES"
                #!+ppc "PSEUDO-ATOMIC-INTERRUPTED-FLAG"
                #!+ppc "PSEUDO-ATOMIC-FLAG"
                "GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER"
@@ -2553,6 +2584,7 @@ structure representations"
                "*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"