Fri Apr  3 00:15:29 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * initial import
diff -rN -u old-qt.test/qt.test.mbd new-qt.test/qt.test.mbd
--- old-qt.test/qt.test.mbd	1970-01-01 01:00:00.000000000 +0100
+++ new-qt.test/qt.test.mbd	2014-10-30 07:53:51.000000000 +0100
@@ -0,0 +1,15 @@
+;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
+
+(in-package :sysdef-user)
+
+(define-system :qt.test ()
+  (:version 0 0 1)
+  (:documentation "Qt Test module for GUI testing.")
+  (:keywords "test" "testing" "GUI")
+  (:author "Tobias Rautenkranz")
+  (:components
+   ("src" module
+          (:components
+           "package"
+           ("qt.test" (:needs "package")))))
+  (:needs :qt))
diff -rN -u old-qt.test/src/package.lisp new-qt.test/src/package.lisp
--- old-qt.test/src/package.lisp	1970-01-01 01:00:00.000000000 +0100
+++ new-qt.test/src/package.lisp	2014-10-30 07:53:51.000000000 +0100
@@ -0,0 +1,4 @@
+(defpackage :qt.test
+  (:use :cl :asdf :smoke :cffi)
+  (:export))
+
diff -rN -u old-qt.test/src/qt.test.lisp new-qt.test/src/qt.test.lisp
--- old-qt.test/src/qt.test.lisp	1970-01-01 01:00:00.000000000 +0100
+++ new-qt.test/src/qt.test.lisp	2014-10-30 07:53:51.000000000 +0100
@@ -0,0 +1,22 @@
+(in-package :qt.test)
+
+(eval-when (:load-toplevel :compile-toplevel)
+  (define-foreign-library libsmokeqttest
+    (:unix "libsmokeqttest.so.2")
+    (t (:default "libsmokeqttest")))
+  (use-foreign-library libsmokeqttest)
+
+  (defcvar "qttest_Smoke" :pointer
+    "The Smoke Qt binding")
+
+  (defcfun (init-qttest-smoke "_Z17init_qttest_Smokev") :void)
+
+  (defvar *binding* (null-pointer))
+
+  (init-qttest-smoke)
+
+  (when (null-pointer-p *binding*)
+    (setf *binding* (init *qttest-smoke*))))
+;    (make-smoke-classes *qttest-smoke*)))
+
+(define-methods *qttest-smoke*)