:qt and :qt-impl packages to prevent collision with :cl symbols and fix object with non smoke parent.
src/timer.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/timer.lisp 2014-10-30 07:47:25.000000000 +0100
+++ new-qt.gui/src/timer.lisp 2014-10-30 07:47:25.000000000 +0100
@@ -1,4 +1,4 @@
-(in-package :qt)
+(in-package :cl-smoke.qt-impl)
(defclass single-shot-timer (qt:object)
((function :initarg :function
@@ -18,7 +18,7 @@
(cxx:start-timer timer (floor timeout 100)))
(push timer *single-shot-timers*)))
-(defmacro do-delayed-initialize (&body body)
+(defmacro qt:do-delayed-initialize (&body body)
"Run body when the event loop starts.
http://techbase.kde.org/Development/Tutorials/Common_Programming_Mistakes#Delayed_Initialization"