(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))
(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))
+ (: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))
(defpackage :lisp-on-lines