クラススロットを辞書のように自由に登録したいのですが、
何かいい方法はありませんか？

例えば、
　(define-class <test> () (()))
というクラスから
　(define foo (make <test> :xxx 0 :yyy 10))
　(ref foo 'xxx) -> 0
　(ref foo 'yyy) -> 10
を可能にしたいのです。