(setf (sb!kernel:fdocumentation 'join-thread-error-thread 'function)
"The thread that we failed to join.")
(setf (sb!kernel:fdocumentation 'join-thread-error-thread 'function)
"The thread that we failed to join.")
#!+sb-doc
"Suspend current thread until THREAD exits. Returns the result
values of the thread function. If the thread does not exit normally,
#!+sb-doc
"Suspend current thread until THREAD exits. Returns the result
values of the thread function. If the thread does not exit normally,
(with-mutex ((thread-result-lock thread))
(cond ((car (thread-result thread))
(values-list (cdr (thread-result thread))))
(with-mutex ((thread-result-lock thread))
(cond ((car (thread-result thread))
(values-list (cdr (thread-result thread))))