27
|
1
|
;; demo packages.lisp |
32
|
2
|
|
|
3
|
(defpackage :demo-core |
|
4
|
(:use :cl)) |
|
5
|
|
27
|
6
|
(defpackage :demo-utils |
32
|
7
|
(:use :demo-core) |
27
|
8
|
(:export |
|
9
|
#:source-dir |
|
10
|
#:random-id |
32
|
11
|
#:scan-dir |
27
|
12
|
#:*cargo-target* |
|
13
|
#:*rs-macros* |
|
14
|
#:rs-defmacro |
|
15
|
#:rs-macroexpand-1 |
|
16
|
#:rs-macroexpand)) |
32
|
17
|
|
27
|
18
|
(defpackage :demo-db |
32
|
19
|
(:use :demo-core)) |
|
20
|
|
27
|
21
|
(defpackage :demo-ui |
32
|
22
|
(:use :demo-core) |
27
|
23
|
(:export |
|
24
|
#:on-new-window |
|
25
|
#:start-ui)) |
32
|
26
|
|
|
27
|
(defpackage :demo |
|
28
|
(:use #:cl #:demo-core #:demo-utils #:demo-db #:demo-ui) |
|
29
|
(:local-nicknames |
|
30
|
(#:bt #:bordeaux-threads))) |
|
31
|
|
27
|
32
|
(defpackage :demo-cli |
32
|
33
|
(:use :demo :clingon)) |
|
34
|
|
27
|
35
|
(defpackage :demo-user |
32
|
36
|
(:use :demo)) |