X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=package-data-list.lisp-expr;h=cbe2e9b32748e95fae7ac1acbc32cc4df8e31976;hb=ad3beba970fab6e451a461c9f9b14faf4ef17718;hp=7ff4ef78b452846d8a8fd7741424aa6318c3f197;hpb=47df5ecb4109844237e56e445379f8bca4915b9c;p=sbcl.git

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 7ff4ef7..cbe2e9b 100644
--- 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"