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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(*global-debugger*): New configurable to globally install
swank-debugger-hook as *debugger-hook*. True by default.

Date: Fri Aug 20 18:37:26 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.222 slime/swank.lisp:1.223
--- slime/swank.lisp:1.222	Fri Aug 13 09:14:13 2004
+++ slime/swank.lisp	Fri Aug 20 18:37:26 2004
@@ -29,6 +29,7 @@
            #:*configure-emacs-indentation*
            #:*readtable-alist*
            #:*globally-redirect-io*
+           #:*global-debugger*
            ;; These are re-exported directly from the backend:
            #:buffer-first-change
            #:frame-source-location-for-emacs
@@ -1263,6 +1264,15 @@
           ((default-connection)
            (with-connection ((default-connection))
              (debug-in-emacs condition))))))
+
+(defvar *global-debugger* t
+  "Non-nil means the Swank debugger hook will be installed globally.")
+
+(add-hook *new-connection-hook* 'install-debugger)
+(defun install-debugger (connection)
+  (declare (ignore connection))
+  (when *global-debugger*
+    (setq *debugger-hook* #'swank-debugger-hook)))
 
 ;;;;; Debugger loop
 ;;;