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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(simple-break): Bind *debugger-hook* before invoking the debugger.
Fixes bug reported by Michael Livshin.
Date: Mon Feb  2 02:25:40 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.113 slime/swank.lisp:1.114
--- slime/swank.lisp:1.113	Sat Jan 31 15:17:19 2004
+++ slime/swank.lisp	Mon Feb  2 02:25:40 2004
@@ -351,11 +351,12 @@
   (loop (with-simple-restart (abort "Retstart dispatch loop.")
 	  (loop (dispatch-event (receive) socket-io)))))
 
-
 (defun simple-break ()
   (with-simple-restart  (continue "Continue from interrupt.")
-    (invoke-debugger (make-condition 'simple-error 
-                                     :format-control "Interrupt from Emacs"))))
+    (let ((*debugger-hook* #'swank-debugger-hook))
+      (invoke-debugger 
+       (make-condition 'simple-error 
+                       :format-control "Interrupt from Emacs")))))
 
 (defun interrupt-worker-thread (thread)
   (let ((thread (etypecase thread