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/smoke.lisp 2014-10-30 08:06:52.000000000 +0100

+++ new-smoke/src/libsmoke/smoke.lisp 2014-10-30 08:06:52.000000000 +0100

@@ -37,12 +37,12 @@

"Smoke index."

`(integer ,lower ,upper))

-(defcfun (smoke-init "cl_smoke_init") smoke-binding

+(defcfun (smoke-construct-binding "cl_smoke_construct_binding") smoke-binding

(smoke :pointer)

(destruct :pointer)

(dispatch :pointer))

-(defcfun (smoke-destruct "cl_smoke_destruct") :void

+(defcfun (smoke-destruct-destruct "cl_smoke_destruct_binding") :void

(smoke smoke-binding))

;; Smoke::ModuleIndex is a POD-struct.