[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv5611

Modified Files:
	swank-lispworks.lisp 
Log Message:
(initialize-multiprocessing): Don't init MP if it is already running.


--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2006/10/20 00:14:26	1.86
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2006/10/21 09:28:57	1.87
@@ -685,8 +685,11 @@
 ;;; Multithreading
 
 (defimplementation initialize-multiprocessing (continuation)
-  (push (list "Initialize SLIME" '() continuation) mp:*initial-processes*)
-  (mp:initialize-multiprocessing))
+  (cond ((not mp::*multiprocessing*)
+         (push (list "Initialize SLIME" '() continuation) 
+               mp:*initial-processes*)
+         (mp:initialize-multiprocessing))
+        (t (funcall continuation))))
 
 (defimplementation spawn (fn &key name)
   (let ((mp:*process-initial-bindings*