From: Richard Fateman
Subject: GCL, readtable-case
Date: Wed, 01 Jul 2009 00:34:25 +0000
Message-ID: <h2eav5$mub$1@aioe.org>

I'd like to know if there is a neat way to make a readtable in GCL such 
that the case of characters which are read in are preserved.

(setf (readtable-case *some-copy-of-readtable*)  :preserve)
would do it if GCL implemented readtable-case.

which it apparently does not.

Any suggestions?   (I am porting code that works just fine on Allegro, 
and I suspect other Common Lisps too), but I'd like it to run in GCL so 
I can read it in to Maxima).

Ultimately I'd like to do
(read)aBcD
and get aBcD   or |aBcD|
not ABCD

Thanks