I’ve seen a talk about this at BOB conference at Berlin some years ago. I learned a lot about DSLs in scheme, also the talk was highly entertaining. I’d recommend it for anyone into scheme or lisp.