[slime-cvs] CVS slime

[mbaringer]

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

Modified Files:
	swank.lisp 
Log Message:
(start-server): initialize-multiprocessing's API has changed.


--- /project/slime/cvsroot/slime/swank.lisp	2006/10/19 12:29:09	1.408
+++ /project/slime/cvsroot/slime/swank.lisp	2006/10/20 00:14:07	1.409
@@ -405,12 +405,14 @@
                      dont-close (external-format *coding-system*))
   "Start the server and write the listen port number to PORT-FILE.
 This is the entry point for Emacs."
-  (when (eq style :spawn)
-    (initialize-multiprocessing))
-  (setup-server 0 (lambda (port) (announce-server-port port-file port))
-                style dont-close external-format)
-  (when (eq style :spawn)
-    (startup-idle-and-top-level-loops)))
+  (flet ((start-server-aux ()
+           (setup-server 0 (lambda (port) (announce-server-port port-file port))
+                         style dont-close external-format)
+           (when (eq style :spawn)
+             (startup-idle-and-top-level-loops))))
+    (if (eq style :spawn)
+        (initialize-multiprocessing #'start-server-aux)
+        (start-server-aux))))
 
 (defun create-server (&key (port default-server-port)
                       (style *communication-style*)