Wed Jul  8 16:59:00 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Set package when starting event loop in background.
diff -rN -u old-repl/src/repl.lisp new-repl/src/repl.lisp
--- old-repl/src/repl.lisp	2014-10-30 08:03:40.000000000 +0100
+++ new-repl/src/repl.lisp	2014-10-30 08:03:40.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)