Thu May 14 14:13:53 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Lisp image loading

+; (:uses-macros-from :smoke)

-(eval-when (:load-toplevel :compile-toplevel)

- (define-foreign-library libsmokeqtuitools

- (:unix "libsmokeqtuitools.so.2")

- (t (:default "libsmokeqtuitools")))

- (use-foreign-library libsmokeqtuitools)

-

- (defcvar "qtuitools_Smoke" :pointer

- "The Smoke QtUiTools binding")

-

- (defcfun (init-qtuitools-smoke "_Z20init_qtuitools_Smokev") :void)

-

- (defvar *binding* (null-pointer))

-

- (init-qtuitools-smoke))

-

-(eval-when (:load-toplevel)

- (when (null-pointer-p *binding*)

- (setf *binding* (init *qtuitools-smoke*))

- (make-smoke-classes *qtuitools-smoke*)))

-

-(define-methods *qtuitools-smoke*)

-

+(smoke:define-smoke-module libsmokeqtuitools

+ (*qtuitools-smoke* "qtuitools_Smoke")

+ (init-qtuitools-smoke "init_qtuitools_Smoke"))