Sun Jan 17 22:04:08 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Fix class-map image loading and use the new static smoke methods.

indClass() and isDerivedFrom() are now static (r1076132 and also in KDE 4.4).

--- old-smoke/src/class-map.lisp 2014-10-30 08:08:36.000000000 +0100

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

@@ -8,9 +8,7 @@

(defun id-class-map (smoke)

(let ((value (gethash (pointer-address (smoke-module-pointer smoke))

*smoke-id-class-map*)))

- (assert value ()

- "Unknown smoke module ~A ~A."

- smoke (smoke-get-module-name (smoke-module-pointer smoke)))

+ (assert value () "Unknown smoke module ~A." smoke)

value))

(defun (setf id-class-map) (new-value smoke)