Wed Jul 8 22:55:24 CEST 2009 Tobias Rautenkranz * The smoke call stack is now a struct -> adapt. diff -rN -u old-qt.gui/src/object.lisp new-qt.gui/src/object.lisp --- old-qt.gui/src/object.lisp 2014-10-30 07:45:32.000000000 +0100 +++ new-qt.gui/src/object.lisp 2014-10-30 07:45:32.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) diff -rN -u old-qt.gui/src/signal-slot/signal.lisp new-qt.gui/src/signal-slot/signal.lisp --- old-qt.gui/src/signal-slot/signal.lisp 2014-10-30 07:45:32.000000000 +0100 +++ new-qt.gui/src/signal-slot/signal.lisp 2014-10-30 07:45:32.000000000 +0100 @@ -103,12 +103,12 @@ (= 0 (smoke::type-id type)) (= 13 (smoke::type-id type))) (foreign-slot-value - (mem-aref (pointer stack) + (mem-aref (smoke::call-stack-pointer stack) 'smoke::smoke-stack-item i) 'smoke::smoke-stack-item 'smoke::voidp) (foreign-slot-pointer - (mem-aref (pointer stack) + (mem-aref (smoke::call-stack-pointer stack) 'smoke::smoke-stack-item i) 'smoke::smoke-stack-item 'smoke::voidp)))) diff -rN -u old-qt.gui/src/signal-slot/translate.lisp new-qt.gui/src/signal-slot/translate.lisp --- old-qt.gui/src/signal-slot/translate.lisp 2014-10-30 07:45:32.000000000 +0100 +++ new-qt.gui/src/signal-slot/translate.lisp 2014-10-30 07:45:32.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)))