Added standard descriptions and UCW integration.
[clinton/lisp-on-lines.git] / src / standard-descriptions / clos.lisp
1 (in-package :lisp-on-lines)
2
3 (define-description standard-object ()
4 ((class-slots :label "Slots"
5 :function (compose 'class-slots 'class-of))))
6
7 (define-layered-method description-of ((object standard-object))
8 (find-description 'standard-object))
9
10
11
12
13