Thu Jan  7 22:03:05 CET 2010  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * modular smoke & cl-smoke prefix.
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-10-30 08:03:30.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-10-30 08:03:30.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/test.lisp new-repl/test.lisp
--- old-repl/test.lisp	2014-10-30 08:03:30.000000000 +0100
+++ new-repl/test.lisp	2014-10-30 08:03:30.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)