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

[Luke Gorrie]

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

Modified Files:
      Tag: stateless-emacs
	swank.lisp 
Log Message:
Major restructuring.

Deleted the Emacs state machine. Emacs is now essentially stateless
and just does what Lisp tells it to.

Date: Sun Jan 25 15:52:47 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.109 slime/swank.lisp:1.109.2.1
--- slime/swank.lisp:1.109	Thu Jan 22 19:20:39 2004
+++ slime/swank.lisp	Sun Jan 25 15:52:47 2004
@@ -217,6 +217,7 @@
 
 (defun init-main-connection (connection)
   (setq *main-connection* connection)
+;;  (setq *dispatching-connection* *main-connection*) ;**
   (setq *main-thread-id* (thread-id))
   (emacs-connected))
 
@@ -589,12 +590,13 @@
   (startup-multiprocessing))
 
 (defun sldb-loop (level)
-  (send-to-emacs (list* :debug *sldb-level*
-                        (debugger-info-for-emacs 0 *sldb-initial-frames*)))
   (unwind-protect
        (loop (catch 'sldb-loop-catcher
                (with-simple-restart
                    (abort "Return to sldb level ~D." level)
+                 (send-to-emacs (list* :debug *sldb-level*
+                                       (debugger-info-for-emacs 0
+                                                                *sldb-initial-frames*)))
                  (handler-bind ((sldb-condition #'handle-sldb-condition))
                    (read-from-emacs)))))
     (send-to-emacs `(:debug-return ,level))))