X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/dee565d0d3252060ce31e8de57708ff9edb054d5..14a7e1bc1292858dce5ac75038f660c2e52898a5:/src/lisp-on-lines.lisp

diff --git a/src/lisp-on-lines.lisp b/src/lisp-on-lines.lisp
index c58c938..8652e10 100644
--- 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)