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

* Lisp image loading

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

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

- (define-foreign-library libsmokeqttest

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

- (t (:default "libsmokeqttest")))

- (use-foreign-library libsmokeqttest)

+(smoke:define-smoke-module libsmokeqttest

+ (*qttest-smoke* "qttest_Smoke")

+ (init-qttest-smoke "init_qttest_Smoke"))

- (defcvar ("qttest_Smoke" :read-only t) :pointer

- "The Smoke Qt binding")

-

- (defcfun (init-qttest-smoke "_Z17init_qttest_Smokev") :void)

-

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

-

- (init-qttest-smoke)

-

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

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

-

-(define-methods *qttest-smoke*)