1 (in-package :lisp-on-lines
)
3 (define-description inline
())
5 (define-description t
()
7 (active-attributes :value
(identity)))
8 (:in-description inline
))
10 (define-display :in-description inline
((description t
))
11 (format *display
* "~{~A ~}"
14 (with-output-to-string (*display
*)
15 (display-attribute *object
* attribute
)))
16 (attributes description
))))