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
)))
8 (define-layered-method description-of
(any-lisp-object)
11 (define-display ((description t
))
12 (format *display
* "~{~A~%~}"
15 (with-output-to-string (*display
*)
16 (display-attribute attribute
)))
17 (attributes description
))))