- :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"