X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=package-data-list.lisp-expr;h=e27b6e8e9518de84c24466641579a944798bd676;hb=ab5427d31da2bd95805cccc8e47b8f43d3dd606d;hp=8e77df17baec659edacbeba6cd8e1e98eebfafdf;hpb=b85af7079579401b458fecd2a7bb5fe85a963b2c;p=sbcl.git

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 8e77df1..e27b6e8 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"
@@ -1092,7 +1097,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?
@@ -2017,7 +2022,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"
@@ -2656,7 +2666,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"