[usocket-cvs] r585 - usocket/branches/0.5.x/vendor

[Chun Tian (binghe)]

Author: ctian
Date: Sun Mar 20 10:13:27 2011
New Revision: 585

Log:
Update vendor code (portable-threads) to support threads creating in ABCL.

Modified:
   usocket/branches/0.5.x/vendor/spawn-thread.lisp

Modified: usocket/branches/0.5.x/vendor/spawn-thread.lisp
==============================================================================
--- usocket/branches/0.5.x/vendor/spawn-thread.lisp	(original)
+++ usocket/branches/0.5.x/vendor/spawn-thread.lisp	Sun Mar 20 10:13:27 2011
@@ -43,6 +43,9 @@
 (defun spawn-thread (name function &rest args)
   #-(or (and cmu mp) cormanlisp (and sbcl sb-thread))
   (declare (dynamic-extent args))
+  #+abcl
+  (threads:make-thread #'(lambda () (apply function args))
+		       :name name)
   #+allegro
   (apply #'mp:process-run-function name function args)
   #+(and clisp mt)