conditionalize lol2 many-to-many

[clinton/lisp-on-lines.git] / src / packages.lisp

diff --git a/src/packages.lisp b/src/packages.lisp
index c97a07c..483f5ea 100644 (file)
--- a/src/packages.lisp
+++ b/src/packages.lisp
@@ -37,10 +37,21 @@
    :get-foreign-instances)
   
   (:export 
-   ;;;; LoL 
+   ;;;; CLSQL meta-model/default attributes definers
+   ;;;; TODO: should be moved to meta-model,
+   ;;;; with lol specific function implemented like the
+   ;;;; CLOS meta-model
    :define-view-for-table
    :define-views-for-database
 
+
+   ;;;; The LoL 3 displays
+   :defdisplay
+   :defattribute
+   :display
+   :display-using-description
+   :call-display
+
    ;;;;a wrapper for calling make-presentation
    :call-view
    :present-view