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

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

@@ -47,6 +47,14 @@

(gethash (pointer-address smoke) *smoke-modules*))

:id (foreign-slot-value m 'smoke-module-index 'index)))))

+(declaim (inline smoke-method-name))

+(defun smoke-method-name (method)

+ (mem-aref (smoke-array-pointer (smoke-module-method-names

+ (smoke-method-smoke method)))

+ :pointer

+ (the (smoke-index 0)

+ (method-slot-value method 'name))))

+

;smoke-find-method

(defun make-smoke-method-from-name (class name)

"Returns the method NAME of CLASS.