Tue May 12 17:42:35 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Make *qt-smoke* read only
diff -rN -u old-qt.core/src/qt.lisp new-qt.core/src/qt.lisp
--- old-qt.core/src/qt.lisp	2014-11-16 19:00:23.000000000 +0100
+++ new-qt.core/src/qt.lisp	2014-11-16 19:00:23.000000000 +0100
@@ -36,7 +36,7 @@
 
   (use-foreign-library libqt-smoke-extra)
   
-  (defcvar "qt_Smoke" :pointer
+  (defcvar ("qt_Smoke" :read-only t) :pointer
     "The Smoke Qt binding")
 
   (defcfun (init-qt-smoke "_Z13init_qt_Smokev") :void)