Scheme-abcのオブジェクトシステム

今、scheme-abcにはClojureに似たオブジェクトシステムが載っている。別にマネした訳じゃなくて、たまたま似ただけなんだけど。

;; クラス定義
(define-class Foo Object
  ([f    x] (print x)))

;; インスタンスの生成
(define foo (new Foo))

;; メソッド呼び出し
(. foo (f 42))

でも、これはダサい。できれば、CLOS風のオブジェクトシステムを搭載したい。かといって、あんまり強力なやつだとFlashとの互換性を保つ(のと実装)が面倒そう。
TinyCLOSよりも、もっと貧弱なオブジェクトシステムが欲しい。できればMOPが無いやつがいいなぁ。

追記

結局、CLOSの文法だけを真似したしょぼいオブジェクトシステムにしました。
http://d.hatena.ne.jp/happyabc/20081103/clos