Practical Common Lisp in Racket

Nice.

Is it OK to add this macro to the API of the binary-class package?