repos
/
commonqt
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
initial import
Annotate for file src/package.lisp
2009-07-02 tobias
1
;; Remove the :qt nickname of :cl-smoke.qt to allow
17:34:07 '
2
;; :cl-smoke.commonqt to use it.
'
3
(eval-when (:load-toplevel :compile-toplevel)
'
4
(rename-package :cl-smoke.qt :cl-smoke.qt))
'
5
'
6
(defpackage :cl-smoke.commonqt
'
7
(:use :cl :cxx-support :cffi)
'
8
(:nicknames :qt)
'
9
(:export #:new
'
10
'
11
#:qsignal
'
12
#:qslot
'
13
'
14
#:make-qapplication
'
15
'
16
#:qt-class
'
17
'
18
#:emit-signal
'
19
#:call-next-qmethod
'
20
#:primitive-value
'
21
'
22
#:uint
'
23
#:int))
'
24
'
25
;; No named-readtables support; fake it.
'
26
;;
'
27
(defpackage :named-readtables
'
28
(:use :cl)
'
29
(:export #:in-readtable))
'
30
'
31
(in-package :named-readtables)
'
32
(defun in-readtable (name)
'
33
(declare (ignore name)))