Tue May 12 17:43:43 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Make *qttest-smoke* read only
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-30 07:53:32.000000000 +0100
+++ new-qt.test/src/qt.test.lisp	2014-10-30 07:53:32.000000000 +0100
@@ -29,11 +29,11 @@
 
 (eval-when (:load-toplevel :compile-toplevel)
   (define-foreign-library libsmokeqttest
-    (:unix "libsmokeqttest.so.2")
+      (:unix "libsmokeqttest.so.2")
     (t (:default "libsmokeqttest")))
   (use-foreign-library libsmokeqttest)
 
-  (defcvar "qttest_Smoke" :pointer
+  (defcvar ("qttest_Smoke" :read-only t) :pointer
     "The Smoke Qt binding")
 
   (defcfun (init-qttest-smoke "_Z17init_qttest_Smokev") :void)
@@ -44,6 +44,5 @@
 
   (when (null-pointer-p *binding*)
     (setf *binding* (init *qttest-smoke*))))
-;    (make-smoke-classes *qttest-smoke*)))
 
 (define-methods *qttest-smoke*)