0.9.2.9: thread objects

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

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 7ff4ef7..d861f4b 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -1587,14 +1587,15 @@ 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"
+      :export ("*CURRENT-THREAD*" "MAKE-THREAD" "THREAD"
+               "THREAD-NAME" "THREAD-ALIVE-P"
+               "LIST-ALL-THREADS"
               "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"
               "CONDITION-WAIT" "CONDITION-NOTIFY" "CONDITION-BROADCAST"
-              "WITH-RECURSIVE-LOCK" "RELEASE-FOREGROUND" "WITH-NEW-SESSION"
-              "CURRENT-THREAD-ID"))
+              "WITH-RECURSIVE-LOCK" "RELEASE-FOREGROUND" "WITH-NEW-SESSION"))
  
    #s(sb-cold:package-data
       :name "SB!LOOP"