From bc08250cc02d2cdbb7effb1caebad925f7f67c5c Mon Sep 17 00:00:00 2001
From: Stelian Ionescu <sionescu@cddr.org>
Date: Mon, 20 Apr 2009 17:02:04 +0200
Subject: [PATCH] Add join-thread for CCL.

---
 src/openmcl.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/openmcl.lisp b/src/openmcl.lisp
index 036de89..43ef58f 100644
--- a/src/openmcl.lisp
+++ b/src/openmcl.lisp
@@ -88,4 +88,7 @@ Distributed under the MIT license (see LICENSE file)
 (defun thread-alive-p (thread)
   (ccl::process-active-p thread))
 
+(defun join-thread (thread)
+  (ccl:join-process thread))
+
 (mark-supported)
-- 
2.11.4.GIT