(defpackage :meta-model
- (:use :common-lisp )
+ (:use :common-lisp :clsql)
(:export
:meta-model-class
:meta-model.base-type
:find-default-value
:explode-foreign-key
:list-has-many
- :list-many-to-many))
+ :list-many-to-many
+ :sync-instance
+ :explode-has-many))
+
+(defpackage :mewa
+ (:use :ucw :common-lisp)
+ (: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
+ :ok
+ :edit-instance
+ :save-instance
+ :cancel-save-instance
+ :global-properties))
+
+
+(defpackage :lisp-on-lines
+ (:use :mewa :meta-model :common-lisp :it.bese.ucw))
\ No newline at end of file