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))