[slime-cvs] CVS update: slime/ChangeLog slime/swank-openmcl.lisp

[Marco Baringer]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv1411

Modified Files:
	ChangeLog swank-openmcl.lisp 
Log Message:

Date: Thu Feb 26 13:38:01 2004
Author: mbaringer

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.268 slime/ChangeLog:1.269
--- slime/ChangeLog:1.268	Thu Feb 26 02:19:07 2004
+++ slime/ChangeLog	Thu Feb 26 13:38:00 2004
@@ -1,3 +1,9 @@
+2004-02-26  Marco Baringer  <mb at bese.it>
+
+	* swank-openmcl.lisp (ccl::force-break-in-listener): Pass a
+	condition object to invoke-debugger.
+	Patch by Bryan O'Connor <bryan-slime at lunch.org>
+
 2004-02-26  Helmut Eller  <e9626484 at stud3.tuwien.ac.at>
 
 	* swank-backend.lisp (:swank): export connection-info.


Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.64 slime/swank-openmcl.lisp:1.65
--- slime/swank-openmcl.lisp:1.64	Tue Feb 24 18:31:34 2004
+++ slime/swank-openmcl.lisp	Thu Feb 26 13:38:00 2004
@@ -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))
       ))))))