[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv23660

Modified Files:
	ChangeLog swank-allegro.lisp 
Log Message:
* swank-allegro.lisp (frame-restartable-p): Handle errors signaled
by debugger:frame-retryable-p.  This looks like an Allegro
bug, though.  Reported by Luke Hope.

--- /project/slime/cvsroot/slime/ChangeLog	2008/10/21 20:37:51	1.1567
+++ /project/slime/cvsroot/slime/ChangeLog	2008/10/21 20:38:05	1.1568
@@ -1,7 +1,13 @@
+2008-10-21  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-allegro.lisp (frame-restartable-p): Handle errors signaled
+	by debugger:frame-retryable-p.  This looks like an Allegro
+	bug, though.  Reported by Luke Hope.
+
 2008-10-20  Helmut Eller  <heller at common-lisp.net>
 
-	* slime.el: Require some packages, apropos, at compile time to
-	suppress some "undefined function" warnings.
+	* slime.el: Require some packages, e.g. apropos, at compile time
+	to suppress some "undefined function" warnings.
 
 2008-10-19  Helmut Eller  <heller at common-lisp.net>
 
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2008/10/19 20:03:34	1.118
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2008/10/21 20:38:05	1.119
@@ -207,7 +207,11 @@
              (debugger:environment-of-frame frame)))))
 
 (defimplementation frame-restartable-p (frame)
-  (debugger:frame-retryable-p frame))
+  (handler-case (debugger:frame-retryable-p frame)
+    (serious-condition (c)
+      (funcall (read-from-string "swank::background-message")
+               "~a ~a" frame (princ-to-string c))
+      nil)))
 
 (defimplementation restart-frame (frame-number)
   (let ((frame (nth-frame frame-number)))