has-many attribute added.. getting ther.

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

diff --git a/src/standard-display.lisp b/src/standard-display.lisp
index 9bcf3ff..cc0b897 100644 (file)
--- a/src/standard-display.lisp
+++ b/src/standard-display.lisp
@@ -154,7 +154,8 @@
                    (attribute (find-attribute occurence (first att))))
               (with-plist ((plist-union (rest att) (find-plist attribute)))
                 (<:p :class "attribute"
-                     (and (getp :show-labels-p) (<:span :class "label" (<:as-html (or (getp :label) "")  " ")))           
+                     (and (o-getp :show-labels-p)
+                          (<:span :class "label" (<:as-html (or (getp :label) "")  " ")))         
                      (display-using-description
                       attribute
                       component