Kaz Kylheku <firstname.lastname@example.org> 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)
> (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 Warnock <email@example.com>
627 26th Avenue <URL:http://rpw3.org/>
San Mateo, CA 94403 (650)572-2607