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/class.lisp 2014-10-30 08:12:35.000000000 +0100

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

@@ -119,13 +119,13 @@

(smoke class))

'smoke-index

index)))

- (assert (<= class-index

- (smoke-array-length

- (smoke-module-classes (smoke class)))))

+ (assert (<= class-index (smoke-array-length

+ (smoke-module-classes (smoke class)))))

(if (= 0 class-index)

classes

- (smoke-add-superclass class (append classes

- (list

- (make-smoke-class-from-id (smoke class)

- class-index)))

- (1+ index)))))

+ (smoke-add-superclass

+ class (append classes

+ (list

+ (make-smoke-class-from-id (smoke class)

+ class-index)))

+ (1+ index)))))