+(define-condition gtk-call-aborted (error)
+ ((condition :initarg :condition :reader gtk-call-aborted-condition))
+ (:report (lambda (c stream)
+ (format stream "Call within main loop aborted because of error:~%~A" (gtk-call-aborted-condition c)))))
+