1 (in-package :lisp-on-lines
)
3 (define-description T
()
4 ((identity :label nil
:function
#'identity
)
5 (type :label
"Type" :function
#'type-of
)
6 (class :label
"Class" :function
#'class-of
)
7 (active-attributes :label
"Attributes"
10 :keyword
:attributes
)))
12 (define-layered-method description-of
(any-lisp-object)
13 (find-description 't
))
15 (define-display ((description t
))
16 (format *display
* "~{~A~%~}"
19 (with-output-to-string (*display
*)
20 (display-attribute *object
* attribute
)))
21 (attributes description
))))