Wed Jul 8 16:59:00 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Set package when starting event loop in background.

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

+++ new-repl/src/repl.lisp 2014-10-30 07:04:32.000000000 +0100

@@ -13,7 +13,7 @@

:reader eval-signal

:documentation "Send an form to evaluate.")

(result :accessor result)

- (package :accessor new-package))

+ (package :accessor new-package :initarg :package))

(:metaclass cxx:class))

(defmethod initialize-instance :after ((qt-eval qt-eval) &key &allow-other-keys)

@@ -76,7 +76,7 @@

*terminal-io* terminal-io)

(qt:with-app ()

(qt:application.set-quit-on-last-window-closed nil)

- (setf *qt-eval* (make-instance 'qt-eval))

+ (setf *qt-eval* (make-instance 'qt-eval :package *package*))

(qt:do-delayed-initialize

(bt:condition-notify ready))

(qt:connect (qt:get-signal (qt:app)