added perform-set-attribute and a few other fixes to this builds again.
[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 :perform-set-attributes
63 :find-class-attributes
64 :default-attributes
65 :ok
66 :edit-instance
67 :save-instance
68 :cancel-save-instance
69 :ensure-instance-sync
70 :global-properties
71 :search-expr
72 :search-query))
73
74 (defpackage :lisp-on-lines
75 (:use :mewa :meta-model :common-lisp :it.bese.ucw))