Hack Lisp to support pokemon-case in reader

[Jacek Złydach]

(setf (readtable-case *readtable*) :pokemonize)

Make that work the Right Way :).

[Michał "phoe" Herda]

We would need support from individual implementations for that.

Should we also support the Lisp printer?