>>965
その方法だと
(define (make-object x y . super)
　(set! super (if (pair? super) (car super)
　　(lambda args (error "Unknown method " args))))

　：（略）

　(else (apply super (list* method args]

という風に修正してやれば継承ぐらいならできるんじゃね？

しかし、つらつらeq?でシンボルと比較しながらメッセージディスパッチ
してたんでは実験程度にしか使いたくないよな。
せめてCでのswitch程度の方法が欲しい。