1 (in-package :lisp-on-lines
)
3 (define-description inline
())
5 (define-description t
()
7 (active-attributes :value
'(identity))
8 (attribute-delimiter :value
", ")
9 (label-formatter :value
(curry #'format nil
"~A: "))
10 (value-formatter :value
(curry #'format nil
"~A")))
11 (:in-description inline
))
13 (define-layered-class standard-attribute
14 :in-layer
#.
(defining-description 'inline
)
19 (define-display :in-description inline
((description t
))