filled in the as-table displays. step by step.

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

diff --git a/src/lisp-on-lines.lisp b/src/lisp-on-lines.lisp
index c58c938..8652e10 100644 (file)
--- a/src/lisp-on-lines.lisp
+++ b/src/lisp-on-lines.lisp
@@ -106,7 +106,11 @@ This involves creating a meta-model, a clsql view-class, and the setting up the
   (mewa::find-attribute-slot self slot-name))
 
 (defmethod present-slot-view ((self mewa) slot-name &optional (instance (instance self)))
-  (present-slot (slot-view self slot-name) instance))
+  (let ((v (slot-view self slot-name)))
+
+     (if v
+        (present-slot v instance)
+        (<:as-html slot-name))))
 
 
 (defmethod find-slots-of-type (model &key (type 'string)