Thu Jul 23 00:26:05 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Use strcmp, fix constructor & destrucor calling for classes witn namespace (phonon::MediaPlayer) and add :arg0 to :arg2 initargs

--- old-smoke/src/objects/stack.lisp 2014-10-30 08:12:40.000000000 +0100

+++ new-smoke/src/objects/stack.lisp 2014-10-30 08:12:40.000000000 +0100

@@ -8,10 +8,9 @@

(defgeneric size (object))

(defmethod size ((stack call-stack))

"Returns the size (number of arguments) of STACK."

- (/

- (- (pointer-address (call-stack-top stack))

- (pointer-address (call-stack-pointer stack)))

- (foreign-type-size 'smoke-stack-item)))

+ (/ (- (pointer-address (call-stack-top stack))

+ (pointer-address (call-stack-pointer stack)))

+ (foreign-type-size 'smoke-stack-item)))

(defun make-call-stack (smoke-stack)

(declare (type foreign-pointer smoke-stack)