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

[Helmut Eller]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(call-with-debugger-hook): Bind sb-ext:*invoke-debugger-hook* instead
of setting it in emacs-connected.
(emacs-connected): Deleted.

Date: Thu Feb 24 19:10:02 2005
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.117 slime/swank-sbcl.lisp:1.118
--- slime/swank-sbcl.lisp:1.117	Fri Feb 18 17:04:13 2005
+++ slime/swank-sbcl.lisp	Thu Feb 24 19:10:02 2005
@@ -139,10 +139,6 @@
             (return (sb-bsd-sockets:socket-accept socket))
           (sb-bsd-sockets:interrupted-error ()))))
 
-(defimplementation emacs-connected ()
-  (setq sb-ext:*invoke-debugger-hook* 
-        (find-symbol (string :swank-debugger-hook) (find-package :swank))))
-
 (defmethod call-without-interrupts (fn)
   (declare (type function fn))
   (sb-sys:without-interrupts (funcall fn)))
@@ -487,6 +483,10 @@
                                :original-condition condition)))))
       (funcall debugger-loop-fn))))
 
+(defimplementation call-with-debugger-hook (hook fun)
+  (let ((sb-ext:*invoke-debugger-hook* hook))
+    (funcall fun)))
+
 (defun nth-frame (index)
   (do ((frame *sldb-stack-top* (sb-di:frame-down frame))
        (i index (1- i)))
@@ -936,14 +936,13 @@
 
   )
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 ;;Trace implementations
 ;;In SBCL, we have:
 ;; (trace <name>)
-;; (trace :methods '<name>) ;;to trace all methods of the gf <name>
+;; (trace :methods '<name>) ;to trace all methods of the gf <name>
 ;; (trace (method <name> <qualifier>? (<specializer>+)))
 ;; <name> can be a normal name or a (setf name)
-
 
 (defun toggle-trace (fspec &rest args)
   (cond ((member fspec (eval '(trace)) :test #'equal)