(install-debugger-globally): hook into the environment globally to ca…

…tch BREAK.
antifuchs · Jul 2, 2008 · 2410a8e · 2410a8e
1 parent 4223e78
commit 2410a8e
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/swank-lispworks.lisp b/swank-lispworks.lisp
@@ -225,6 +225,10 @@ Return NIL if the symbol is unbound."
     (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)