[slime-cvs] CVS slime

[mbaringer]

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

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


--- /project/slime/cvsroot/slime/swank-allegro.lisp	2006/08/10 18:55:51	1.90
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2006/10/20 00:15:15	1.91
@@ -616,8 +616,9 @@
 
 ;;;; Multithreading
 
-(defimplementation initialize-multiprocessing ()
-  (mp:start-scheduler))
+(defimplementation initialize-multiprocessing (continuation)
+  (mp:start-scheduler)
+  (funcall continuation))
 
 (defimplementation spawn (fn &key name)
   (mp:process-run-function name fn))