HCoop
/
clinton
/
lisp-on-lines.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)))
(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)
(defmethod find-slots-of-type (model &key (type 'string)