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)