(define-class <kah-lassy> ()
(entries #:allocation #:each-subclass
#:init-thunk
- (wrap-rmeta-slot
+ (build-rmeta-slot
`((foo . "bar")
(baz . "basil")))))
(define-class <sub-lassy> (<kah-lassy>)
(entries #:allocation #:each-subclass
#:init-thunk
- (wrap-rmeta-slot
+ (build-rmeta-slot
`((foo . "foo2")
(peanut . "gallery")))))