change PLIST to PROPERTIES, abstract is good.
[clinton/lisp-on-lines.git] / src / standard-display.lisp
index 9bcf3ff..cc0b897 100644 (file)
                    (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