Commit | Line | Data |
---|---|---|
6de8d300 | 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)))) |