0.9.2.38: thread cleanup, paranoid

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

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 7ff4ef7..cbe2e9b 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -1587,14 +1587,20 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
       :name "SB!THREAD"
       :use ("CL" "SB!ALIEN" "SB!INT")
       :doc "public (but low-level): native thread support"
-      :export ("MAKE-THREAD"
-              "MAKE-LISTENER-THREAD" "DESTROY-THREAD" "TERMINATE-THREAD"
-              "INTERRUPT-THREAD" "WITH-RECURSIVE-LOCK"
-              "MUTEX" "MAKE-MUTEX" "GET-MUTEX" "RELEASE-MUTEX" "WITH-MUTEX"
-              "MUTEX-VALUE" "WAITQUEUE" "MAKE-WAITQUEUE"
+      :export ("*CURRENT-THREAD*" "THREAD" "MAKE-THREAD"
+               "THREAD-NAME" "THREAD-ALIVE-P"
+               "LIST-ALL-THREADS"
+               "INTERRUPT-THREAD-ERROR"
+               "INTERRUPT-THREAD-ERROR-THREAD"
+               "INTERRUPT-THREAD-ERROR-ERRNO"
+               "INTERRUPT-THREAD" "TERMINATE-THREAD" "DESTROY-THREAD"
+              "MUTEX" "MAKE-MUTEX" "MUTEX-NAME" "MUTEX-VALUE"
+               "GET-MUTEX" "RELEASE-MUTEX" "WITH-MUTEX"
+              "WITH-RECURSIVE-LOCK"
+              "WAITQUEUE" "MAKE-WAITQUEUE" "WAITQUEUE-NAME"
               "CONDITION-WAIT" "CONDITION-NOTIFY" "CONDITION-BROADCAST"
-              "WITH-RECURSIVE-LOCK" "RELEASE-FOREGROUND" "WITH-NEW-SESSION"
-              "CURRENT-THREAD-ID"))
+              "MAKE-LISTENER-THREAD"
+              "RELEASE-FOREGROUND" "WITH-NEW-SESSION"))
  
    #s(sb-cold:package-data
       :name "SB!LOOP"
@@ -1857,21 +1863,24 @@ SB-KERNEL) have been undone, but probably more remain."
               "DEALLOCATE-SYSTEM-MEMORY"
               "DEFAULT-INTERRUPT"
               "DEPORT-BOOLEAN" "DEPORT-INTEGER"
-               "DYNAMIC-FOREIGN-SYMBOLS"
+               "DYNAMIC-FOREIGN-SYMBOLS-P"
                "DLOPEN-OR-LOSE"
               "FROB-DO-BODY"
-              "ENABLE-INTERRUPT" "ENUMERATION"
+              "ENABLE-INTERRUPT" 
+              "ENUMERATION"
+              "ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
               "EXTERN-ALIEN-NAME"
               "FD-STREAM" "FD-STREAM-FD" "FD-STREAM-P" 
+              "FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
+              "FIND-FOREIGN-SYMBOL-ADDRESS"
                "FIND-FOREIGN-SYMBOL-IN-TABLE"
-              "FOREIGN-SYMBOL-ADDRESS" 
-               "FOREIGN-SYMBOL-ADDRESS-AS-INTEGER"
-               "FOREIGN-SYMBOL-ADDRESS-AS-INTEGER-OR-NIL"
-               "FOREIGN-SYMBOL-DATAREF-ADDRESS"
-              "FOREIGN-SYMBOL-IN-ADDRESS"
+              "FOREIGN-SYMBOL-SAP" 
+               "FOREIGN-SYMBOL-ADDRESS"
+               "FOREIGN-SYMBOL-DATAREF-SAP"
               "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
               "IGNORE-INTERRUPT"
               "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT"
+              "LIST-DYNAMIC-FOREIGN-SYMBOLS"
               "MACRO" "MAKE-FD-STREAM" "MAKE-OBJECT-SET" "MEMMOVE"
               "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER"
               "OBJECT-SET-OPERATION"
@@ -1881,7 +1890,9 @@ SB-KERNEL) have been undone, but probably more remain."
               "REMOVE-FD-HANDLER"
                "REOPEN-SHARED-OBJECTS"
               "RESOLVE-LOADED-ASSEMBLER-REFERENCES"
-              "SAP+" "SAP-" "SAP-INT"
+              "SAP+" "SAP-" 
+              "SAP-FOREIGN-SYMBOL"
+              "SAP-INT"
               "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-WORD"
               "SAP-REF-8"
               "SAP-REF-DESCRIPTOR"
@@ -1895,13 +1906,13 @@ SB-KERNEL) have been undone, but probably more remain."
               ;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL.
               "STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
               "SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P" 
+              "UNDEFINED-FOREIGN-SYMBOLS-P"
                "UPDATE-LINKAGE-TABLE" "VECTOR-SAP"
               "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS"
               "WITH-FD-HANDLER"
               "WITH-INTERRUPTS" "WITH-PINNED-OBJECTS" "WITHOUT-GCING"
               "WITHOUT-INTERRUPTS" "WORDS"
-              "ALLOCATE-SYSTEM-MEMORY-AT"
-              "GET-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"))
+              "ALLOCATE-SYSTEM-MEMORY-AT"))
 
    #s(sb-cold:package-data
       :name "SB!UNIX"
@@ -1919,6 +1930,7 @@ no guarantees of interface stability."
                "NANOSLEEP"
               "UID-USERNAME"
               "UID-HOMEDIR"
+               "WITH-RESTARTED-SYSCALL"
 
               ;; stuff with a one-to-one mapping to Unix constructs
               "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" "DEV-T" "DIRECT"