[usocket-cvs] r561 - usocket/trunk/vendor

[Chun Tian (binghe)]

Author: ctian
Date: Wed Sep 15 02:14:59 2010
New Revision: 561

Log:
ABCL: spawn-thread now works in ABCL.

Modified:
   usocket/trunk/vendor/spawn-thread.lisp

Modified: usocket/trunk/vendor/spawn-thread.lisp
==============================================================================
--- usocket/trunk/vendor/spawn-thread.lisp	(original)
+++ usocket/trunk/vendor/spawn-thread.lisp	Wed Sep 15 02:14:59 2010
@@ -65,6 +65,9 @@
   #+scl
   (mp:make-process #'(lambda () (apply function args))
                    :name name)
+  #+abcl
+  (threads:make-thread #'(lambda () (apply function args))
+		       :name name)
   #+threads-not-available
   (declare (ignore name function args))
   #+threads-not-available