How to make Allegro Common Lisp case sensitive?

Question

How do I make Allegro Lisp case sensitive. I've tried the following

(setf (readtable-case rt) :default)

but it doesn't work.

Answer 1

So it appears the docs are wrong but this appears to work I think.

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