:qt and :qt-impl packages to prevent collision with :cl symbols and fix object with non smoke parent.
src/qt.lisp
Thu Jun 11 16:59:48 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* :qt and :qt-impl packages to prevent collision with :cl symbols and fix object with non smoke parent.
--- old-qt.gui/src/qt.lisp 2014-10-30 07:47:11.000000000 +0100
+++ new-qt.gui/src/qt.lisp 2014-10-30 07:47:11.000000000 +0100
@@ -25,9 +25,9 @@
;;; do so. If you do not wish to do so, delete this exception statement
;;; from your version.
-(in-package :qt)
+(in-package :cl-smoke.qt-impl)
-(define-smoke-module libsmokeqt
+(define-smoke-module :cl-smoke.qt libsmokeqt
(*qt-smoke* "qt_Smoke")
(init-qt-smoke "init_qt_Smoke"))