new SET-SBCL-SOURCE-LOCATION convenience function

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

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index e5bffc9..54430d7 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -163,7 +163,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "%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"
@@ -545,6 +545,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "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"
@@ -562,7 +563,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "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"
                "NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE"
                "OPEN-FASL-OUTPUT" "PAGE-TABLE-CORE-ENTRY-TYPE-CODE"
                "READ-ONLY-CORE-SPACE-ID"
@@ -596,11 +597,24 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "*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"
                "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"
@@ -612,6 +626,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "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"
@@ -784,6 +799,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "TYPEXPAND-1" "TYPEXPAND" "TYPEXPAND-ALL"
                "DEFINED-TYPE-NAME-P" "VALID-TYPE-SPECIFIER-P"
                "DELETE-DIRECTORY"
+               "SET-SBCL-SOURCE-LOCATION"
 
                ;; stepping interface
                "STEP-CONDITION" "STEP-FORM-CONDITION" "STEP-FINISHED-CONDITION"
@@ -1083,7 +1099,7 @@ possibly temporariliy, because it might be used internally."
                "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?
@@ -1281,6 +1297,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%ATAN" "%ATAN2" "%ATANH"
                "%CALLER-FRAME"
                "%CALLER-PC"
+               "%CEILING"
                "%CHECK-BOUND"
                "%CHECK-GENERIC-SEQUENCE-BOUNDS"
                "%CHECK-VECTOR-SEQUENCE-BOUNDS"
@@ -1294,7 +1311,9 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%CONCATENATE-TO-STRING"
                "%COS" "%COS-QUICK"
                "%COSH" "%DATA-VECTOR-AND-INDEX" "%DEPOSIT-FIELD"
-               "%DOUBLE-FLOAT" "%DPB" "%EQL" "%EXP" "%EXPM1" "%FIND-POSITION"
+               "%DOUBLE-FLOAT" "%DPB" "%EQL" "%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"
@@ -1327,6 +1346,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%MEMBER-KEY-TEST-NOT"
                "%MEMBER-TEST"
                "%MEMBER-TEST-NOT"
+               "%MULTIPLY-HIGH"
                "%NEGATE" "%POW"
                "%OTHER-POINTER-WIDETAG"
                "%PUTHASH"
@@ -1592,22 +1612,18 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                ;; 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"
@@ -1659,22 +1675,17 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "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"
@@ -1727,8 +1738,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "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-FIXNUM-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"
@@ -2013,7 +2024,12 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "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"
@@ -2652,10 +2668,10 @@ structure representations"
                #!+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"
                "N-LOWTAG-BITS"
                "N-FIXNUM-TAG-BITS"
+               "N-FIXNUM-BITS"
                "N-POSITIVE-FIXNUM-BITS"
                "NEGATIVE-IMMEDIATE-SC-NUMBER"
                "NFP-SAVE-OFFSET"
@@ -2671,6 +2687,8 @@ structure representations"
                "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"
@@ -2706,23 +2724,17 @@ structure representations"
                "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"
@@ -2831,10 +2843,34 @@ structure representations"
 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"
+               "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-MESSAGE"
+               "GET-FILE-ATTRIBUTES"
+               "GET-LAST-ERROR"
+               "GET-OSFHANDLE"
+               "GET-VERSION-EX"
+               "HANDLE"
+               "HANDLE-CLEAR-INPUT"
+               "HANDLE-LISTEN"
+               "INT-PTR"
+               "INVALID-HANDLE"
+               "MAP-VIEW-OF-FILE"
+               "MILLISLEEP"
+               "PEEK-CONSOLE-INPUT"
+               "PEEK-NAMED-PIPE"
+               "READ-FILE"
+               "UNMAP-VIEW-OF-FILE"
+               "WRITE-FILE"
+               "WITH-PROCESS-TIMES")))