[mcclim-cvs] CVS mcclim/Lisp-Dep

[thenriksen]

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*"))