[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv11090

Modified Files:
	swank.lisp 
Log Message:
(start-server): Call initialize-multiprocessing before starting the
server and startup-idle-and-top-level-loops afterwards.  Calling
startup-idle-and-top-level-loops here shouldn't be a problem because
start-server is only invoked at startup via stdin.

(inspector-reinspect): New function.


Date: Wed Sep 28 00:44:29 2005
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.341 slime/swank.lisp:1.342
--- slime/swank.lisp:1.341	Thu Sep 22 22:23:42 2005
+++ slime/swank.lisp	Wed Sep 28 00:44:28 2005
@@ -341,8 +341,12 @@
                      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))
+                style dont-close external-format)
+  (when (eq style :spawn)
+    (startup-idle-and-top-level-loops)))
 
 (defun create-server (&key (port default-server-port)
                       (style *communication-style*)
@@ -3981,6 +3985,9 @@
       (cond ((= (1+ position) (length *inspector-history*))
              nil)
             (t (inspect-object (aref *inspector-history* (1+ position))))))))
+
+(defslimefun inspector-reinspect ()
+  (inspect-object *inspectee*))
 
 (defslimefun quit-inspector ()
   (reset-inspector)