From 8708d17f81c7d1e2dfbbeb710f7d10e08152115a Mon Sep 17 00:00:00 2001
From: Drew Crampsie <drewc@tech.coop>
Date: Thu, 12 Jan 2006 04:13:21 -0800
Subject: [PATCH] Export LoL 3 symbols

darcs-hash:20060112121321-5417e-82765dcad669b9c531cf97d57577a000d53b5a83.gz
---
 src/lisp-on-lines.lisp |  1 -
 src/packages.lisp      | 13 ++++++++++++-
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/src/lisp-on-lines.lisp b/src/lisp-on-lines.lisp
index 617b124..3c02bd9 100644
--- 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
--- 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
-- 
2.20.1