API CHANGE: Removed the OBJECT arg from attribute-value
[clinton/lisp-on-lines.git] / src / standard-descriptions / inline.lisp
1 (in-package :lisp-on-lines)
2
3 (define-description inline ())
4
5 (define-description t ()
6 ((identity :label nil)
7 (active-attributes :value (identity)))
8 (:in-description inline))
9
10 (define-display :in-description inline ((description t))
11 (format *display* "~{~A ~}"
12 (mapcar
13 (lambda (attribute)
14 (with-output-to-string (*display*)
15 (display-attribute *object* attribute)))
16 (attributes description))))