0fd0c87a62feecd5551e79c1f83fb25ce63ac25b
[clinton/lisp-on-lines.git] / src / packages.lisp
1 (defpackage :meta-model
2 (:use :common-lisp :clsql)
3 (:export
4 :meta-model-class
5 :meta-model.base-type
6 :meta-model.instance
7 :meta-model.metadata
8 :def-meta-model
9 :def-base-class
10 :%def-base-class
11 :def-view-class/table
12 :def-view-class/meta
13 :view-class-metadata
14 :create-table-from-model
15 :list-slots
16 :list-slot-types
17 :slot-type
18 :display-slot
19 :list-joins
20 :list-join-attributes
21 :list-keys
22 :list-view-classes
23 :display-slot
24 :primary-key-p
25 :list-foreign-keys
26 :foreign-key-p
27 :explode-foreign-key
28 :find-join-class
29 :find-join-key
30 :find-default-value
31 :explode-foreign-key
32 :list-has-many
33 :list-many-to-many
34 :sync-instance
35 :explode-has-many
36 :expr-ends-with
37 :expr-starts-with
38 :expr-contains
39 :expr-=
40 :expr-<
41 :expr->
42 :expr-and
43 :expr-or
44 :expr-not
45 :select-instances
46 ))
47
48
49 (defpackage :mewa
50 (:use :ucw :common-lisp)
51 (:export
52 :mewa
53 :mewa-object-presentation
54 :mewa-one-line-presentation
55 :mewa-presentation-search
56 :find-attribute
57 :set-default-attributes
58 :make-presentation
59 :call-presentation
60 :label
61 :set-attribute
62 :find-class-attributes
63 :default-attributes
64 :ok
65 :edit-instance
66 :save-instance
67 :cancel-save-instance
68 :ensure-instance-sync
69 :global-properties
70 :search-expr
71 :search-query))
72
73 (defpackage :lisp-on-lines
74 (:use :mewa :meta-model :common-lisp :it.bese.ucw))