[slime-devel] swank-openmcl bug + patch

[bryan o'connor]

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))
        ))))))