re-organized a little, and added support for calling make-presentation with a class...
[clinton/lisp-on-lines.git] / src / packages.lisp
CommitLineData
579597e3 1(defpackage :meta-model
2 (:use :common-lisp )
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
6d063a77 35
36(defpackage :mewa
37 (:use :ucw :common-lisp)
38 (:export :mewa :mewa-object-presentation :mewa-one-line-presentation :find-attribute :set-default-attributes :make-presentation :call-presentation :label :set-attribute :find-class-attributes :default-attributes))
39
40
41(defpackage :lisp-on-lines
42 (:use :mewa :meta-model :common-lisp :it.bese.ucw))