[slime-cvs] CVS slime

[mbaringer]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(initialize-multiprocessing): Update for new API.


--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2006/10/16 20:42:02	1.164
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2006/10/20 00:14:39	1.165
@@ -2044,8 +2044,9 @@
 
 #+mp
 (progn
-  (defimplementation initialize-multiprocessing () 
-    (mp::init-multi-processing))
+  (defimplementation initialize-multiprocessing (continuation) 
+    (mp::init-multi-processing)
+    (funcall continuation))
   
   (defimplementation startup-idle-and-top-level-loops ()
     ;; Threads magic: this never returns! But top-level becomes