[mcclim-cvs] CVS mcclim/Lisp-Dep

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Lisp-Dep
In directory clnet:/tmp/cvs-serv15136/Lisp-Dep

Modified Files:
	mp-sbcl.lisp 
Log Message:
Pass the name of the process to the call to `sb-thread:make-thread'.


--- /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-sbcl.lisp	2005/07/15 16:36:58	1.8
+++ /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-sbcl.lisp	2006/08/04 12:49:53	1.9
@@ -76,7 +76,7 @@
 	     (let ((*current-process* p))
 	       (funcall (process-function p) ))))
     (when (process-thread p) (sb-thread:terminate-thread p))
-    (when (setf (process-thread p) (sb-thread:make-thread #'boing))
+    (when (setf (process-thread p) (sb-thread:make-thread #'boing :name (process-name p)))
       p)))
 
 (defun destroy-process (process)