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