[slime-cvs] CVS slime

[mbaringer]

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

Modified Files:
	swank-backend.lisp 
Log Message:
(initialize-multiprocessing): New API to support lisps where
initialize-multiprocessing may not return (lispworks).


--- /project/slime/cvsroot/slime/swank-backend.lisp	2006/10/19 12:29:32	1.105
+++ /project/slime/cvsroot/slime/swank-backend.lisp	2006/10/20 00:15:01	1.106
@@ -845,9 +845,9 @@
 ;;; The default implementations are sufficient for non-multiprocessing
 ;;; implementations.
 
-(definterface initialize-multiprocessing ()
-   "Initialize multiprocessing, if necessary."
-   nil)
+(definterface initialize-multiprocessing (continuation)
+   "Initialize multiprocessing, if necessary and then invoke CONTINUATION."
+   (funcall continuation))
 
 (definterface startup-idle-and-top-level-loops ()
   "This function is called directly through the listener, not in an RPC