X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/579597e310dfac262d629aade17f86c3d6b80da4..4867c86f7dce578458c4130d9a8cfbf1041f7c4a:/src/packages.lisp diff --git a/src/packages.lisp b/src/packages.lisp dissimilarity index 98% index 8c971ce..b1f48db 100644 --- a/src/packages.lisp +++ b/src/packages.lisp @@ -1,34 +1,25 @@ -(defpackage :meta-model - (:use :common-lisp ) - (:export - :meta-model-class - :meta-model.base-type - :meta-model.instance - :meta-model.metadata - :def-meta-model - :def-base-class - :%def-base-class - :def-view-class/table - :def-view-class/meta - :view-class-metadata - :create-table-from-model - :list-slots - :list-slot-types - :slot-type - :display-slot - :list-joins - :list-join-attributes - :list-keys - :list-view-classes - :display-slot - :primary-key-p - :list-foreign-keys - :foreign-key-p - :explode-foreign-key - :find-join-class - :find-join-key - :find-default-value - :explode-foreign-key - :list-has-many - :list-many-to-many)) - +(defpackage #:lisp-on-lines + (:use + :common-lisp + #:contextl) + (:nicknames #:lol) + (:export + +;; Descriptions + #:find-description + #:define-description + + ;; Displays + #:define-display + #:display + #:display-using-description + #:*display* + #:*object* + + ;; Attributes + #:find-attribute + #:attribute-label + #:attribute-function + #:attribute-value)) + +