Sun Jun 21 11:29:25 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* *SMOKE-MODULE* must be passed instead of *QT-SMOKE*.

--- old-qt.gui/src/list.lisp 2014-10-30 07:46:29.000000000 +0100

+++ new-qt.gui/src/list.lisp 2014-10-30 07:46:29.000000000 +0100

@@ -45,7 +45,7 @@

(,(symbolicate 'qt-smoke-list-

type '-at)

list index)

- (smoke::make-smoke-type *qt-smoke* ,type-name)))))))

+ (smoke::make-smoke-type *smoke-module* ,type-name)))))))

(defmethod free-translated-object (pointer (type ,list-type) param)

(declare (ignore param))

(,(symbolicate 'qt-smoke-free-list- type)