Hello!
On Mon, Jul 22, 2002 at 01:23:34PM +0200, Christian Lynbech wrote: >How would one go about using mixed case symbols ala Allegro? >Just setting > > (setf (readtable-case *readtable*) :preserve) >means that one has to upcase everything, including debugger commands >and standard names as in > (SETF (READTABLE-CASE *READTABLE*) :UPCASE) >which is pretty intolerable. >We have a sizeable application that started life in a case sensitive >scheme and now runs in ACL using mixed case mode, but we would want to >be able run at least parts of it from CMUCL as well, in which case we >will need a solution for the casing. You could try this: * (setf (readtable-case *readtable*) :invert) :invert * (symbol-name '#:foo) "FOO" * (symbol-name '#:Foo) "Foo" * (symbol-name '#:fOO) "fOO" * (symbol-name '#:FOO) "foo" Of course, then, you MUST write the names of the standard symbols in lowercase, and you must write the names of you own symbols in any consistent manner wrt case. Kind regards, Hannah.
