Fri Feb 19 22:10:24 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* No need to construct a SmokeBinding per Smoke module.

--- old-smoke/src/libsmoke/smoke.lisp 2014-10-07 11:46:53.000000000 +0200

+++ new-smoke/src/libsmoke/smoke.lisp 2014-10-07 11:46:53.000000000 +0200

@@ -38,7 +38,6 @@

`(integer ,lower ,upper))

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

- (smoke :pointer)

(destruct :pointer)

(dispatch :pointer))

@@ -51,10 +50,6 @@

(smoke :pointer)

(index smoke-index))

-(declaim (inline smoke-get-smoke))

-(defcfun (smoke-get-smoke "cl_smoke_get_smoke") :pointer

- (smoke-binding smoke-binding))

-

(defcfun (smoke-get-module-name "cl_smoke_get_module_name") :string

(smoke :pointer))