[slime-cvs] CVS slime

[mbaringer]

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

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


--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2006/08/10 11:53:35	1.85
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2006/10/20 00:14:26	1.86
@@ -684,7 +684,8 @@
 
 ;;; Multithreading
 
-(defimplementation initialize-multiprocessing ()
+(defimplementation initialize-multiprocessing (continuation)
+  (push (list "Initialize SLIME" '() continuation) mp:*initial-processes*)
   (mp:initialize-multiprocessing))
 
 (defimplementation spawn (fn &key name)