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

+++ new-qt.gui/src/signal-slot/signal.lisp 2014-10-30 07:45:35.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))))