Thu Jan  7 22:03:05 CET 2010  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * modular smoke & cl-smoke prefix.
Wed Jul  8 16:59:00 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Set package when starting event loop in background.
Wed Jul  1 13:05:25 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Use new qt:with-app.
diff -rN -u old-repl/cl-smoke.repl.asd new-repl/cl-smoke.repl.asd
--- old-repl/cl-smoke.repl.asd	1970-01-01 01:00:00.000000000 +0100
+++ new-repl/cl-smoke.repl.asd	2014-11-17 12:27:57.000000000 +0100
@@ -0,0 +1,20 @@
+(asdf:defsystem :cl-smoke.repl
+  :name :cl-smoke.repl
+  :version (0 0 1)
+  :author "Tobias Rautenkranz"
+  :license "GPL with linking exception"
+  :description "REPL support for cl-smoke."
+  :depends-on (:cl-smoke.qt.gui)
+  :components
+  ((:module "src"
+            :components
+            ((:file "package") (:file "repl" :depends-on ("package"))
+             (:file "locate-widget" :depends-on ("package"))
+             (:file "get-widget" :depends-on ("package"))))))
+
+(defmethod operation-done-p ((o test-op) (c (eql (find-system :cl-smoke.repl))))
+  nil)
+
+(defmethod perform ((o test-op) (c (eql (find-system :cl-smoke.repl))))
+  (operate 'asdf:load-op :cl-smoke.repl-tests)
+  (operate 'asdf:test-op :cl-smoke.repl-tests))
diff -rN -u old-repl/repl.mbd new-repl/repl.mbd
--- old-repl/repl.mbd	2014-11-17 12:27:57.000000000 +0100
+++ new-repl/repl.mbd	1970-01-01 01:00:00.000000000 +0100
@@ -1,17 +0,0 @@
-;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
-
-(in-package :sysdef-user)
-
-(define-system :cl-smoke.repl ()
-  (:version 0 0 1)
-  (:documentation "REPL support for cl-smoke.")
-  (:author "Tobias Rautenkranz")
-  (:license "GPL with linking exception")
-  (:components
-   ("src" module
-          (:components
-           "package"
-           ("repl" (:needs "package"))
-           ("locate-widget" (:needs "package"))
-           ("get-widget" (:needs "package")))))
-  (:needs :qt))
diff -rN -u old-repl/src/repl.lisp new-repl/src/repl.lisp
--- old-repl/src/repl.lisp	2014-11-17 12:27:57.000000000 +0100
+++ new-repl/src/repl.lisp	2014-11-17 12:27:57.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)
@@ -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)
-                            (setf *qt-eval* (make-instance 'qt-eval))
+                          (qt:with-app ()
+                            (qt:application.set-quit-on-last-window-closed nil)
+                            (setf *qt-eval* (make-instance 'qt-eval :package *package*))
                             (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~%"))))
diff -rN -u old-repl/test.lisp new-repl/test.lisp
--- old-repl/test.lisp	2014-11-17 12:27:57.000000000 +0100
+++ new-repl/test.lisp	2014-11-17 12:27:57.000000000 +0100
@@ -4,19 +4,7 @@
 ;;; Thus the pipe
 ;;;
 
-(in-package :sysdef-user)
-
-(defun load-sysdef (pathname system)
-  (load pathname)
-  (setf (mb.sysdef::pathname-of (find-system system)) pathname))
-
-(defun load-sysdef-file (system-name)
-  "Loads a mbd file in the current directory."
-  (load-sysdef (first (directory "*.mbd"))
-               system-name))
-
-(load-sysdef-file :cl-smoke.repl)
-(mb:load :cl-smoke.repl)
+(require :cl-smoke.repl)
 
 (in-package :cl-smoke.repl)