[mcclim-cvs] CVS update: mcclim/presentation-defs.lisp

[Max-Gerd Retzlaff]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv19729

Modified Files:
	presentation-defs.lisp 
Log Message:
In response to: http://article.gmane.org/gmane.lisp.mcclim.devel/724

We reSIGNAL the condition now before the call to ABORT, to give outer
handlers a chance to say "I know how to handle this" (as Christophe
Rhodes has put it).

Date: Fri Sep  2 13:36:48 2005
Author: mretzlaff

Index: mcclim/presentation-defs.lisp
diff -u mcclim/presentation-defs.lisp:1.47 mcclim/presentation-defs.lisp:1.48
--- mcclim/presentation-defs.lisp:1.47	Thu Sep  1 04:59:11 2005
+++ mcclim/presentation-defs.lisp	Fri Sep  2 13:36:48 2005
@@ -664,7 +664,9 @@
 		   display-default query-identifier
 		   activation-gestures additional-activation-gestures
 		   delimiter-gestures additional-delimiter-gestures))
-  (handler-bind ((abort-gesture #'abort))
+  (handler-bind ((abort-gesture (lambda (condition)
+                                  (signal condition) ;; to give outer handlers a chance to say "I know how to handle this"
+                                  (abort condition))))
     (let* ((real-type (expand-presentation-type-abbreviation type))
            (real-default-type (cond (default-type-p
                                      (expand-presentation-type-abbreviation