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

[Peter Seibel]

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

Modified Files:
	swank.lisp ChangeLog 
Log Message:
Bind *debugger-hook* instead of setfing it when spawning threads.

Date: Thu Oct  7 21:33:00 2004
Author: pseibel

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.248 slime/swank.lisp:1.249
--- slime/swank.lisp:1.248	Wed Oct  6 14:39:35 2004
+++ slime/swank.lisp	Thu Oct  7 21:33:00 2004
@@ -507,14 +507,14 @@
 (defun spawn-threads-for-connection (connection)
   (let* ((socket-io (connection.socket-io connection))
          (control-thread (spawn (lambda ()
-                                  (setq *debugger-hook* nil)
-                                  (dispatch-loop socket-io connection))
+                                  (let ((*debugger-hook* nil))
+                                    (dispatch-loop socket-io connection)))
                                 :name "control-thread")))
     (setf (connection.control-thread connection) control-thread)
     (let ((reader-thread (spawn (lambda () 
-                                  (setq *debugger-hook* nil)
-                                  (read-loop control-thread socket-io
-                                             connection))
+                                  (let ((*debugger-hook* nil))
+                                    (read-loop control-thread socket-io
+                                               connection)))
                                 :name "reader-thread"))
           (repl-thread (spawn (lambda () (repl-loop connection))
                               :name "repl-thread")))


Index: slime/ChangeLog
diff -u slime/ChangeLog:1.547 slime/ChangeLog:1.548
--- slime/ChangeLog:1.547	Wed Oct  6 11:08:32 2004
+++ slime/ChangeLog	Thu Oct  7 21:33:00 2004
@@ -1,3 +1,8 @@
+2004-10-07  Peter Seibel  <peter at javamonkey.com>
+
+	* swank.lisp (spawn-threads-for-connection): Bind *debugger-hook*
+	instead of SETF'ing it.
+
 2004-10-06  Luke Gorrie  <luke at synap.se>
 
 	* swank.lisp (update-indentation/delta-for-emacs): Configure Emacs