Make *qt-smoke* read only
Tue May 12 17:42:35 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Make *qt-smoke* read only
diff -rN -u old-qt.gui/src/qt.lisp new-qt.gui/src/qt.lisp
--- old-qt.gui/src/qt.lisp 2014-10-12 08:53:22.000000000 +0200
+++ new-qt.gui/src/qt.lisp 2014-10-12 08:53:23.000000000 +0200
@@ -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)