Thu May 14 14:14:13 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Lisp image loading
diff -rN -u old-qt.test/qt.test.mbd new-qt.test/qt.test.mbd
--- old-qt.test/qt.test.mbd	2014-10-02 09:59:15.000000000 +0200
+++ new-qt.test/qt.test.mbd	2014-10-02 09:59:15.000000000 +0200
@@ -8,6 +8,7 @@
   (:keywords "test" "testing" "GUI")
   (:author "Tobias Rautenkranz")
   (:license "GPL with linking exception")
+;  (:uses-macros-from :smoke)
   (:components
    ("src" module
           (:components
diff -rN -u old-qt.test/src/qt.test.lisp new-qt.test/src/qt.test.lisp
--- old-qt.test/src/qt.test.lisp	2014-10-02 09:59:15.000000000 +0200
+++ new-qt.test/src/qt.test.lisp	2014-10-02 09:59:15.000000000 +0200
@@ -27,22 +27,7 @@
 
 (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)
+(smoke:define-smoke-module libsmokeqttest
+    (*qttest-smoke* "qttest_Smoke")
+  (init-qttest-smoke "init_qttest_Smoke"))
 
-  (defcvar ("qttest_Smoke" :read-only t) :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*))))
-
-(define-methods *qttest-smoke*)