[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
(swank-debugger-hook): Remove the default-debugger restart.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/27 17:52:58	1.1475
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/27 17:53:03	1.1476
@@ -6,6 +6,7 @@
 2008-08-27  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.lisp (decode-message): Don't ignore EOF.
+	(swank-debugger-hook): Remove the default-debugger restart.
 
 2008-08-22  Helmut Eller  <heller at common-lisp.net>
 
--- /project/slime/cvsroot/slime/swank.lisp	2008/08/27 17:52:58	1.577
+++ /project/slime/cvsroot/slime/swank.lisp	2008/08/27 17:53:03	1.578
@@ -1159,9 +1159,11 @@
   (handle-or-process-requests connection))
 
 (defun process-io-interrupt (connection)
-  (log-event "process-io-interrupt~%")
-  (invoke-or-queue-interrupt
-   (lambda () (handle-or-process-requests connection))))
+  (log-event "process-io-interrupt ~d ...~%" *io-interupt-level*)
+  (let ((*io-interupt-level* (1+ *io-interupt-level*)))
+    (invoke-or-queue-interrupt
+     (lambda () (handle-or-process-requests connection))))
+  (log-event "process-io-interrupt ~d ... done ~%" *io-interupt-level*))
 
 (defun handle-or-process-requests (connection)
   (log-event "handle-or-process-requests: ~a~%" *swank-state-stack*)
@@ -2093,12 +2095,8 @@
 (defun swank-debugger-hook (condition hook)
   "Debugger function for binding *DEBUGGER-HOOK*."
   (declare (ignore hook))
-  (restart-case 
-      (call-with-debugger-hook 
-       #'swank-debugger-hook (lambda () (invoke-slime-debugger condition)))
-    (default-debugger (&optional v)
-      :report "Use default debugger." (declare (ignore v))
-      (invoke-default-debugger condition))))
+  (call-with-debugger-hook #'swank-debugger-hook
+                           (lambda () (invoke-slime-debugger condition))))
 
 (defun invoke-default-debugger (condition)
   (let ((*debugger-hook* nil))