Wed Jul 8 22:55:24 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* The smoke call stack is now a struct -> adapt.

--- old-qt.gui/src/object.lisp 2014-10-30 07:45:34.000000000 +0100

+++ new-qt.gui/src/object.lisp 2014-10-30 07:45:34.000000000 +0100

@@ -72,7 +72,7 @@

(if (smoke::has-pointer-p (smoke::pointer parent))

parent

(find-smoke-parent parent))

- (error "No smoke parent found."))))

+ (error "No smoke parent found for ~A." object))))

(defmethod initialize-instance :after ((object qt:object)

&key (pointer nil pointer-p) &allow-other-keys)