Browse files

* 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.
  • Loading branch information...
1 parent 10260ef commit bf67446a4aa139098837dff68ff5f51394290332 Helmut Eller committed Oct 21, 2008
Showing with 13 additions and 3 deletions.
  1. +8 −2 ChangeLog
  2. +5 −1 swank-allegro.lisp
View
10 ChangeLog
@@ -1,7 +1,13 @@
+2008-10-21 Helmut Eller <heller@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@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@common-lisp.net>
View
6 swank-allegro.lisp
@@ -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)))

0 comments on commit bf67446

Please sign in to comment.