Sun May 24 17:02:00 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * *exec-p* allows disabling 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:49:29.000000000 +0100
+++ new-qt.gui/src/application.lisp	2014-10-30 07:49:30.000000000 +0100
@@ -4,6 +4,8 @@
 
 (defvar *app*)
 (defvar *widgets* nil)
+(defvar *exec-p* t
+  "Run exec if true and not otherwise.")
 
 (defun app ()
   "Returns the APPLICATION (or CORE-APPLICATION) object,
@@ -91,11 +93,12 @@
 (defun exec (&rest widgets)
   "Executes APP."
   (setf *widgets* (append widgets *widgets*))
-  (restart-bind ((abort-app #'(lambda ()
-                                (application.close-all-windows)
-                                (cxx:quit (app))
-                                (invoke-restart (find-restart 'continue)))
-                   :report-function
-                   #'(lambda (stream)
-                       (format stream "Return from the application event loop."))))
-    (cxx:exec (app))))
+  (when *exec-p*
+    (restart-bind ((abort-app #'(lambda ()
+                                  (application.close-all-windows)
+                                  (cxx:quit (app))
+                                  (invoke-restart (find-restart 'continue)))
+                     :report-function
+                     #'(lambda (stream)
+                         (format stream "Return from the application event loop."))))
+      (cxx:exec (app)))))
diff -rN -u old-qt.gui/src/package.lisp new-qt.gui/src/package.lisp
--- old-qt.gui/src/package.lisp	2014-10-30 07:49:29.000000000 +0100
+++ new-qt.gui/src/package.lisp	2014-10-30 07:49:30.000000000 +0100
@@ -3,6 +3,7 @@
   (:export #:app
            #:app-p
            #:exec
+           #:*exec-p*
            #:with-app
            #:with-core-app