[slime-cvs] CVS slime

[msimmons]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(install-debugger-globally): hook into the environment globally to catch BREAK.


--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2008/04/17 14:56:43	1.99
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2008/07/02 10:02:57	1.100
@@ -225,6 +225,10 @@
     (env:with-environment ((slime-env hook '()))
       (funcall fun))))
 
+(defimplementation install-debugger-globally (function)
+  (setq *debugger-hook* function)
+  (setf (env:environment) (slime-env function '())))
+
 (defvar *sldb-top-frame*)
 
 (defun interesting-frame-p (frame)