[slime-cvs] CVS slime
trittweiler
trittweiler at common-lisp.net
Wed Mar 26 15:59:30 UTC 2008
Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv4689
Modified Files:
ChangeLog
Log Message:
On SBCL,
(block outta
(let ((*debugger-hook* #'(lambda (c hook)
(declare (ignore hook))
(return-from outta 42))))
(error "FOO")))
would kist silently skip over the *DEBUGGER-HOOK*, and pop right
into SLDB to handle the error. Fix that.
* swank-sbcl (make-invoke-debugger-hook): New function; returns a
hook for SB-EXT:*INVOKE-DEBUGGER-HOOK* that checks for the
presence of *DEBUGGER-HOOK*, and calls that if available.
(install-debugger-globally): Use it.
(call-with-debugger-hook): Ditto.
(getpid): Declaim return type explicitly, to make SBCL shut up about
being unable to optimize %SAP-ALIEN in ENABLE-SIGIO-ON-FD.
* slime.el (def-slime-test break): Test additionally that BREAK
turns into SLDB even when *DEBUGGER-HOOK* is locally bound.
(def-slime-test locally-bound-debugger-hook): New test case; tests
that a locally-bound *DEBUGGER-HOOK* is adhered, and not skipped.
--- /project/slime/cvsroot/slime/ChangeLog 2008/03/24 07:22:19 1.1336
+++ /project/slime/cvsroot/slime/ChangeLog 2008/03/26 15:59:30 1.1337
@@ -1,3 +1,30 @@
+2008-03-26 Tobias C. Rittweiler <tcr at freebits.de>
+
+ On SBCL,
+
+ (block outta
+ (let ((*debugger-hook* #'(lambda (c hook)
+ (declare (ignore hook))
+ (return-from outta 42))))
+ (error "FOO")))
+
+ would just silently skip over the *DEBUGGER-HOOK*, and pop right
+ into SLDB to handle the error. Fix that.
+
+ * swank-sbcl (make-invoke-debugger-hook): New function; returns a
+ hook for SB-EXT:*INVOKE-DEBUGGER-HOOK* that checks for the
+ presence of *DEBUGGER-HOOK*, and calls that if available.
+ (install-debugger-globally): Use it.
+ (call-with-debugger-hook): Ditto.
+
+ (getpid): Declaim return type explicitly, to make SBCL shut up about
+ being unable to optimize %SAP-ALIEN in ENABLE-SIGIO-ON-FD.
+
+ * slime.el (def-slime-test break): Test additionally that BREAK
+ turns into SLDB even when *DEBUGGER-HOOK* is locally bound.
+ (def-slime-test locally-bound-debugger-hook): New test case; tests
+ that a locally-bound *DEBUGGER-HOOK* is adhered, and not skipped.
+
2008-03-24 Tobias C. Rittweiler <tcr at freebits.de>
* HACKING: Updated due to broken links.
More information about the slime-cvs
mailing list