Узнал сегодня про макрос with-method, который я оказыется успешно перезобрел пару раз.

Макрос извлекает методы ил класса и биндит их как функции на область действия.

(with-method ((id (obj-expr method-id)) ...)
body ...+)

http://docs.racket-lang.org/reference/ivaraccess.html?q=with-#%28form._%28%28lib._racket%2Fprivate%2Fclass-internal..rkt%29._with-method%29%29