[slime-cvs] CVS slime

[jsnellman]

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

Modified Files:
	swank-sbcl.lisp ChangeLog 
Log Message:
use INVOKE-STEPPER rather than funcalling *STEPPER-HOOK*

--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2006/09/19 11:56:38	1.163
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2006/09/20 17:52:32	1.164
@@ -631,12 +631,12 @@
         #+#.(swank-backend::sbcl-with-new-stepper-p)
         (sb-ext:*stepper-hook*
          (lambda (condition)
-           (when (typep condition 'sb-ext:step-form-condition)
-             (let ((sb-debug:*stack-top-hint* (sb-di::find-stepped-frame)))
-               (sb-impl::invoke-debugger condition))))))
-    (handler-bind ((sb-ext:step-condition
-                    (lambda (condition)
-                      (funcall sb-ext:*stepper-hook* condition))))
+           (typecase condition
+             (sb-ext:step-form-condition
+              (let ((sb-debug:*stack-top-hint* (sb-di::find-stepped-frame)))
+                (sb-impl::invoke-debugger condition)))))))
+    (handler-bind (#+#.(swank-backend::sbcl-with-new-stepper-p)
+                   (sb-ext:step-condition #'sb-impl::invoke-stepper))
       (funcall fun))))
 
 (defun nth-frame (index)
--- /project/slime/cvsroot/slime/ChangeLog	2006/09/19 11:56:38	1.948
+++ /project/slime/cvsroot/slime/ChangeLog	2006/09/20 17:52:32	1.949
@@ -1,6 +1,11 @@
+2006-09-20  Juho Snellman  <jsnell at iki.fi>	
+	
+	* swank-sbcl.lisp (call-with-debugger-hook): use INVOKE-STEPPER
+	instead of calling the stepper hook manually
+	
 2006-09-19  Juho Snellman  <jsnell at iki.fi>	
 	
-	* swank-backend.lisp (call-with-debugger-hook): make the stepper
+	* swank-sbcl.lisp (call-with-debugger-hook): make the stepper
 	also work with a threaded SBCL, by binding a handler for
 	sb-ext:stepper-condition instead of relying on the one that SBCL
 	establishes on the toplevel