Wed Jul 1 13:05:25 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Use new qt:with-app.

--- old-repl/src/repl.lisp 2014-10-30 07:04:33.000000000 +0100

+++ new-repl/src/repl.lisp 2014-10-30 07:04:33.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~%"))))