Plaster

CL-USER> (defclass foo () (my-slot)) #<STANDARD-CLASS COMMON-LISP-USER::FOO> CL-USER> (defclass bar (foo) (my-slot)) #<STANDARD-CLASS COMMON-LISP-USER::BAR> CL-USER> (sb-mop:class-direct-slots (find-class 'foo)) (#<SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION COMMON-LISP-USER::MY-SLOT>) CL-USER> (sb-mop:class-direct-slots (find-class 'bar)) (#<SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION COMMON-LISP-USER::MY-SLOT>)