src/libsmoke/class.lisp
Thu Feb 18 20:57:00 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Don't dispatch virtual methods for builtin classes (reduces overhead).
--- old-smoke/src/libsmoke/class.lisp 2014-10-30 08:06:48.000000000 +0100
+++ new-smoke/src/libsmoke/class.lisp 2014-10-30 08:06:48.000000000 +0100
@@ -5,6 +5,7 @@
(:constructor #x01)
(:copy-constructor #x02)
(:virtual-destructor #x04)
+ (:namespace #x08)
(:undefined #x10))
(defcstruct smoke-class
@@ -21,6 +22,7 @@
(m :pointer smoke-module-index)
(name :string))
+(declaim (inline smoke-class-id))
(defcfun (smoke-class-id "cl_smoke_class_id") smoke-index
(smoke :pointer)
(name :string))