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/signal-slot/translate.lisp 2014-10-30 07:46:37.000000000 +0100

+++ new-qt.gui/src/signal-slot/translate.lisp 2014-10-30 07:46:37.000000000 +0100

@@ -1,7 +1,7 @@

(in-package :cl-smoke.qt-impl)

(defun find-type (name &optional start end)

- (smoke::make-smoke-type *qt-smoke* (subseq name start end)))

+ (smoke::make-smoke-type *smoke-module* (subseq name start end)))

(defun method-arguments-type (metaobject index)

"Returns a type name list for the arguments of method INDEX of METAOBJECT."

@@ -86,7 +86,7 @@

(smoke::smoke-standard-object

(if (smoke::pointer-p smoke-type)

(error "FOO");;qmetatype.+voidstar+

- (let ((type (meta-type.type (smoke::name smoke-type))))

+ (let ((type (qt:meta-type.type (smoke::name smoke-type))))

(assert (/= 0 type)

(type)

"The type ~S has no QMetaType."