[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-openmcl.lisp 
Log Message:
* swank-openmcl.lisp (install-debugger-globally): Set *break-in-sldb*.

--- /project/slime/cvsroot/slime/ChangeLog	2009/01/10 12:25:41	1.1663
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/10 12:40:13	1.1664
@@ -1,3 +1,7 @@
+2009-01-10  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-openmcl.lisp (install-debugger-globally): Set *break-in-sldb*.
+
 2009-01-10  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* swank.lisp (do-symbols*): Wrap body in TAGBODY.
--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/01/10 12:25:16	1.155
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/01/10 12:40:13	1.156
@@ -460,6 +460,10 @@
         (*break-in-sldb* t))
     (funcall fun)))
 
+(defimplementation install-debugger-globally (function)
+  (setq *debugger-hook* function)
+  (setq *break-in-sldb* t))
+
 (defun backtrace-context ()
   nil)