Fri Jul  3 12:14:09 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Fix nested #'qt:exec
diff -rN -u old-qt.gui/src/application.lisp new-qt.gui/src/application.lisp
--- old-qt.gui/src/application.lisp	2014-10-30 07:45:40.000000000 +0100
+++ new-qt.gui/src/application.lisp	2014-10-30 07:45:40.000000000 +0100
@@ -120,6 +120,7 @@
                            (declare (ignore condition))
                            (and (qt:app-p)
                                 (find-restart 'continue)))))
-        (cxx:exec (qt:app)))
+        (let ((qt:*exec-p* nil))
+          (cxx:exec (qt:app))))
       (when (typep (qt:app) 'qt:application)
         (setf *widgets* (qt:application.top-level-widgets)))))