[mcclim-cvs] CVS mcclim/Lisp-Dep

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)