[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv26568

Modified Files:
	ChangeLog swank-ccl.lisp 
Log Message:
Don't advice ccl::break-loop.
Should not be necessary as we can now use ccl:*break-hook*.

* swank-ccl.lisp ([advice] ccl::break-loop): Deleted.

--- /project/slime/cvsroot/slime/ChangeLog	2009/08/31 17:08:09	1.1846
+++ /project/slime/cvsroot/slime/ChangeLog	2009/08/31 17:08:17	1.1847
@@ -1,5 +1,12 @@
 2009-08-31  Helmut Eller  <heller at common-lisp.net>
 
+	Don't advice ccl::break-loop.
+	Should not be necessary as we can now use ccl:*break-hook*.
+
+	* swank-ccl.lisp ([advice] ccl::break-loop): Deleted.
+
+2009-08-31  Helmut Eller  <heller at common-lisp.net>
+
 	Keep note overlays in a global variable.
 	That's simpler and cheaper than scanning all buffers.
 
--- /project/slime/cvsroot/slime/swank-ccl.lisp	2009/08/15 08:34:56	1.4
+++ /project/slime/cvsroot/slime/swank-ccl.lisp	2009/08/31 17:08:17	1.5
@@ -384,23 +384,6 @@
   (setq ccl:*select-interactive-process-hook* 'find-repl-thread)
   )
 
-(let ((ccl::*warn-if-redefine-kernel* nil))
-  ;; Everybody (error, cerror, break, invoke-debugger, and async interrupts) ends up
-  ;; in CCL::BREAK-LOOP, which implements the default debugger. Regardless of how it
-  ;; was entered, make sure it runs with the swank connection state established so
-  ;; that i/o happens via emacs and there is no contention for the terminal (stdin).
-  (ccl:advise
-   ccl::break-loop
-   (if (symbol-value (swank-sym *emacs-connection*))
-     (:do-it)
-     (let ((conn (funcall (swank-sym default-connection))))
-       (if conn
-         (funcall (swank-sym call-with-connection) conn
-                  (lambda () (:do-it)))
-         (:do-it))))
-   :when :around
-   :name swank-default-debugger-context))
-
 (defun map-backtrace (function &optional
                                (start-frame-number 0)
                                (end-frame-number most-positive-fixnum))