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:00:48.000000000 +0100
+++ new-qt.gui/src/application.lisp 2014-10-30 07:00:48.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)))))