I'm running the latest CVS version of slime, "2009-05-19" in a fairly recent CCL (OpenMCL), "Version 1.3-r11936 (DarwinX8664)".
I would expect the following code to bring up an SLDB buffer with a break loop in the repl:
(setq *break-on-signals* t)
(handler-case (error "foo") (error () 1))
Instead, it returns 1. This is not surprising given this in swank-openmcl.lisp:
(defun break-in-sldb (x y &rest args) (let ((*sldb-stack-top-hint* (or *sldb-stack-top-hint* (ccl::%get-frame-ptr)))) (apply #'cerror y (if args "Break: ~a" x) args)))
I'm debugging some server code that really needs to catch all errors. This makes it rather difficult. The only workaround I've discovered is to set swank-backend::*break-in-sldb* to NIL and use CCL's builtin debugger. Not my favorite debugging environment.
Clues, anyone?
I could probably fix this myself, and if nobody else has done it, I may be forced to, but I'd rather make progress on my application code.
-Bill
Try (setf *break-on-signals* 'error) (or other condition class).
Cheers, Vsevolod Dyomkin
On Sat, May 23, 2009 at 5:35 PM, Bill St. Clair billstclair@gmail.comwrote:
I'm running the latest CVS version of slime, "2009-05-19" in a fairly recent CCL (OpenMCL), "Version 1.3-r11936 (DarwinX8664)".
I would expect the following code to bring up an SLDB buffer with a break loop in the repl:
(setq *break-on-signals* t)
(handler-case (error "foo") (error () 1))
Instead, it returns 1. This is not surprising given this in swank-openmcl.lisp:
(defun break-in-sldb (x y &rest args) (let ((*sldb-stack-top-hint* (or *sldb-stack-top-hint* (ccl::%get-frame-ptr)))) (apply #'cerror y (if args "Break: ~a" x) args)))
I'm debugging some server code that really needs to catch all errors. This makes it rather difficult. The only workaround I've discovered is to set swank-backend::*break-in-sldb* to NIL and use CCL's builtin debugger. Not my favorite debugging environment.
Clues, anyone?
I could probably fix this myself, and if nobody else has done it, I may be forced to, but I'd rather make progress on my application code.
-Bill
slime-devel site list slime-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/slime-devel
* Bill St. Clair [2009-05-23 16:35+0200] writes:
Instead, it returns 1. This is not surprising given this in swank-openmcl.lisp:
(defun break-in-sldb (x y &rest args) (let ((*sldb-stack-top-hint* (or *sldb-stack-top-hint* (ccl::%get-frame-ptr)))) (apply #'cerror y (if args "Break: ~a" x) args)))
I checked in a fix for this. *break-on-signals* should work now.
Helmut.
-
Bill St. Clair -
Helmut Eller -
Vsevolod