whole bunch of cleanups so we build
[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
37
38 (defpackage :mewa
39 (:use :ucw :common-lisp)
40 (:export
41 :mewa
42 :mewa-object-presentation
43 :mewa-one-line-presentation
44 :find-attribute
45 :set-default-attributes
46 :make-presentation
47 :call-presentation
48 :label
49 :set-attribute
50 :find-class-attributes
51 :default-attributes
52 :ok
53 :edit-instance
54 :save-instance
55 :cancel-save-instance
56 :global-properties))
57
58
59 (defpackage :lisp-on-lines
60 (:use :mewa :meta-model :common-lisp :it.bese.ucw))