Hi Peter Graves,
> On Tue, 30 Nov 2004 at 23:53:44 +1300, Adam Warner wrote:
>> Fantastic! I've tested the symbol reader extensively and I've managed
>> to reproduce an additional bug.
>> (setf (readtable-case *readtable*) :invert)
>> (make-package :another-package)
>> (in-package :another-package)
>> 'cl:loop => COMMON-LISP:loop
>> [the package name is printed in the wrong case]
> I've just checked in a fix for this.
> *PRINT-CASE* is specified to be "one of the symbols :UPCASE, :DOWNCASE,
> or :CAPITALIZE", so I don't think we need to handle :INVERT there.
I didn't realise where the odd :CAPITALIZE option came from! Thank
goodness that read case sensitivity has priority over print case:
"In order to avoid complex interactions between the case setting of the
readtable and *PRINT-CASE*, this proposal specifies a significance for
*PRINT-CASE* only when the case setting is :UPCASE or :DOWNCASE"
[Issue READ-CASE-SENSITIVITY Writeup]