src/objects/class.lisp
Thu Feb 18 19:31:47 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Fix casting across Smoke modules.
--- old-smoke/src/objects/class.lisp 2014-10-30 08:07:03.000000000 +0100
+++ new-smoke/src/objects/class.lisp 2014-10-30 08:07:03.000000000 +0100
@@ -30,6 +30,11 @@
(defmethod name ((class smoke-class))
(class-slot-value class 'name))
+(defun name-pointer (class)
+ (mem-ref (foreign-slot-pointer (smoke-class-pointer class)
+ 'smoke-class 'name)
+ :pointer))
+
(defun class-size (smoke-class)
(class-slot-value smoke-class 'size))