Kaz Kylheku  <kkylheku@gmail.com> wrote:
+---------------
| The upper casing is a consequence of how the token is turned into the
| string that becomes the symbol's name. This is controlled by a state
| flag in the current *readtable*. The reader can preserve case, fold to
| upper case, or fold to lower case.
+---------------

Or :INVERT, in which event mixed-case (e.g., CamelCase) symbols
are *not* case-inverted:

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

    :invert
    > (mapcar #'symbol-name '(foobar FOOBAR FooBar))

    ("FOOBAR" "foobar" "FooBar")
    > 

This is IMHO often the most convenient of the non-default
READTABLE-CASE values to use, especially when trying to use
the Lisp reader on data containing mixed-case symbols.


-Rob

-----
Rob Warnock			<rpw3@rpw3.org>
627 26th Avenue			<URL:http://rpw3.org/>
San Mateo, CA 94403		(650)572-2607