repos
/
qt.test
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
initial import
Annotate for file src/qt.test.lisp
2009-04-02 tobias
1
(in-package :qt.test)
22:15:29 '
2
'
3
(eval-when (:load-toplevel :compile-toplevel)
'
4
(define-foreign-library libsmokeqttest
'
5
(:unix "libsmokeqttest.so.2")
'
6
(t (:default "libsmokeqttest")))
'
7
(use-foreign-library libsmokeqttest)
'
8
'
9
(defcvar "qttest_Smoke" :pointer
'
10
"The Smoke Qt binding")
'
11
'
12
(defcfun (init-qttest-smoke "_Z17init_qttest_Smokev") :void)
'
13
'
14
(defvar *binding* (null-pointer))
'
15
'
16
(init-qttest-smoke)
'
17
'
18
(when (null-pointer-p *binding*)
'
19
(setf *binding* (init *qttest-smoke*))))
'
20
; (make-smoke-classes *qttest-smoke*)))
'
21
'
22
(define-methods *qttest-smoke*)