Practical Common Lisp in Racket

The macro is public domain.

BTW: I could not find a way to seek in a binary file. Is the idea of binary-class to read all of the file sequentially?