1 (in-package :lisp-on-lines
)
3 (define-description standard-object
()
4 ((class-slots :label
"Slots"
5 :function
(compose 'class-slots
'class-of
))))
7 (define-layered-method description-of
((object standard-object
))
8 (find-description 'standard-object
))