Update of /project/mcclim/cvsroot/mcclim/Lisp-Dep In directory clnet:/tmp/cvs-serv11374/Lisp-Dep Modified Files: mp-sbcl.lisp Log Message: SBCL multiprocessing patch from Christophe that allows saved cores to work. --- /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-sbcl.lisp 2008/05/29 19:11:45 1.13 +++ /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-sbcl.lisp 2008/05/29 19:12:03 1.14 @@ -42,16 +42,24 @@ function thread) -(defvar *current-process* +(defun make-current-process () (%make-process :name (sb-thread:thread-name sb-thread:*current-thread*) :function nil :thread sb-thread:*current-thread*)) +(defvar *current-process* (make-current-process)) + (defvar *all-processes* (list *current-process*) "A list of processes created by McCLIM, plus the one that was running when this file was loaded.") +(defun reinit-processes () + (setf *current-process* (make-current-process)) + (setf *all-processes* (list *current-process*))) + +(push 'reinit-processes sb-ext:*init-hooks*) + (defvar *all-processes-lock* (sb-thread:make-mutex :name "Lock around *ALL-PROCESSES*"))