X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=package-data-list.lisp-expr;h=54430d77c3dfdb451c3ebdbc419148af4dce7ec6;hb=d94c1b4a8c534bde146823f56558faf37cd4c4d7;hp=c5fb4abb56cfac5191f84308c24d179ed8f42a1e;hpb=dd04bd449535e9016b5652a708a3cac2ca24c87d;p=sbcl.git

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index c5fb4ab..54430d7 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -563,7 +563,6 @@ 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"
@@ -598,8 +597,14 @@ 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"
@@ -608,6 +613,9 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                ;; 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"
                "GET-TIME-OF-DAY"
@@ -618,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"
@@ -790,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"
@@ -1089,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?
@@ -2014,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"
@@ -2653,7 +2668,6 @@ 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"
@@ -2673,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"