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

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

@@ -2,7 +2,7 @@

(defun find-type (name &optional 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."

(let* ((signature (cxx:signature (cxx:method metaobject index)))