the redefinition of ccl::force-break-in-listener in swank-openmcl.lisp relied on the more-featured-but-not-ansi pre-0.14.1 behavior of invoke-debugger.
the following patch accomplishes the same thing by explicitly creating the condition as the argument to invoke-debugger. it should work for pre-0.14.1 versions, too.
...bryan
Index: swank-openmcl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-openmcl.lisp,v retrieving revision 1.64 diff -u -r1.64 swank-openmcl.lisp --- swank-openmcl.lisp 24 Feb 2004 23:31:34 -0000 1.64 +++ swank-openmcl.lisp 26 Feb 2004 18:22:16 -0000 @@ -114,7 +114,8 @@ (setq *swank-debugger-stack-frame* p) (return-from find-frame)) (setq previous-f (ccl::lfun-name lfun))))) - (restart-case (invoke-debugger) + (restart-case (invoke-debugger + (make-condition 'simple-condition :format-control "")) (continue () :report (lambda (stream) (write-string "Resume interrupted evaluation" stream)) t)) ))))))
On Giovedì, feb 26, 2004, at 19:30 Europe/Rome, bryan o'connor wrote:
the following patch accomplishes the same thing by explicitly creating the condition as the argument to invoke-debugger. it should work for pre-0.14.1 versions, too.
applied, thanks.
-- Marco Ring the bells that still can ring. Forget the perfect offering. There is a crack in everything. That's how the light gets in. -Leonard Cohen
-
bryan o'connor -
Marco Baringer