Export LoL 3 symbols

darcs-hash:20060112121321-5417e-82765dcad669b9c531cf97d57577a000d53b5a83.gz

diff --git a/src/lisp-on-lines.lisp b/src/lisp-on-lines.lisp
index 617b124..3c02bd9 100644 (file)
--- a/src/lisp-on-lines.lisp
+++ b/src/lisp-on-lines.lisp
@@ -43,7 +43,6 @@
 ;;;; The following macros are used to initialise a set of database tables as LoL objects.
 
 
-
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defun generate-define-view-for-table (table)
     "

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