[slime-cvs] CVS slime

[heller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(startup-idle-and-top-level-loops): Initialize MP if only once.


--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2006/08/10 11:53:35	1.162
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2006/08/11 16:26:20	1.163
@@ -2048,7 +2048,8 @@
   (defimplementation startup-idle-and-top-level-loops ()
     ;; Threads magic: this never returns! But top-level becomes
     ;; available again.
-    (mp::startup-idle-and-top-level-loops))
+    (unless mp::*initial-process*
+      (mp::startup-idle-and-top-level-loops)))
 
   (defimplementation spawn (fn &key name)
     (mp:make-process fn :name (or name "Anonymous")))