Wed Jul  1 13:05:25 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Use new qt:with-app.
diff -rN -u old-repl/src/repl.lisp new-repl/src/repl.lisp
--- old-repl/src/repl.lisp	2014-10-30 08:03:45.000000000 +0100
+++ new-repl/src/repl.lisp	2014-10-30 08:03:45.000000000 +0100
@@ -74,11 +74,11 @@
                                 *error-output* error-output
                                 *query-io* query-io
                                 *terminal-io* terminal-io)
-                          (qt:with-app
-                              (qt:application.set-quit-on-last-window-closed nil)
+                          (qt:with-app ()
+                            (qt:application.set-quit-on-last-window-closed nil)
                             (setf *qt-eval* (make-instance 'qt-eval))
                             (qt:do-delayed-initialize 
-                                (bt:condition-notify ready))
+                              (bt:condition-notify ready))
                             (qt:connect (qt:get-signal (qt:app)
                                                        "aboutToQuit()")
                                         #'(lambda ()
@@ -96,13 +96,13 @@
 While the idea is fine, it is a hack and the displaying of the argument list
 in SLIME is fluky."
   (funcall swank::*send-repl-results-function* '(nil))
-  (qt:with-app
-      (qt:application.set-quit-on-last-window-closed nil)
+  (qt:with-app ()
+    (qt:application.set-quit-on-last-window-closed nil)
     (let ((idle (make-instance 'qt:timer)))
       (qt:connect (qt:get-signal idle "timeout()")
-               #'(lambda ()
-                   (swank::process-requests t) ;; it's a wonder this even works!
-                   (sb-impl::serve-event 0.1)))
+                  #'(lambda ()
+                      (swank::process-requests t) ;; it's a wonder this even works!
+                      (sb-impl::serve-event 0.1)))
       (cxx:start idle)
       (qt:exec)
       (format *debug-io* "New-repl end~%"))))