Did some work on searching, changed object presentation to specialise on each row...

[clinton/lisp-on-lines.git] / src / meta-model.lisp

diff --git a/src/meta-model.lisp b/src/meta-model.lisp
index aabd2ff..4416423 100644 (file)
--- a/src/meta-model.lisp
+++ b/src/meta-model.lisp
@@ -102,7 +102,7 @@ most of the below functions expect this method to exist"
              (list-item-helper
               type view
               :ret-fun #'rfun)))
-    (append (lister :key) (lister :base))))
+    (append (lister :key) (lister :base) (lister nil))))
                         
 (defmethod slot-type ((view t) slot)
   "returns the CLSQL type of SLOT"