[armedbear-devel] readtable-case :invert does not invert uninterned symbols

[Ole Arndt]

Hello,

Ole Arndt <ole at sugarshark.com> writes:

> This prevents loading a newer parenscript, which uses an
> inverted readtable case via named-readtables:
>
> Armed Bear Common Lisp 0.26.0-dev-svn-13273
> Java 1.6.0_17 Sun Microsystems Inc.
> Java HotSpot(TM) 64-Bit Server VM
> Low-level initialization completed in 0.712 seconds.
> Startup completed in 3.154 seconds.
> Type ":help" for a list of available commands.
>
> CL-USER(1): (setf (readtable-case *readtable*) :invert)
> :invert
> CL-USER(2): (string :cl)
> "CL"
> CL-USER(3): (string '#:cl)
> "cl"

Mark Evenson <evenson at panix.com> writes:

> Filed as [ticket #148][1].  Thanks for the report!
>
> [1]: http://trac.common-lisp.net/armedbear/ticket/148

The attached patch fixes the test case above. 

Loading a newer parenscript still fails while loading the fasl for
parenscripts package.lisp. It seems that named-readtables (as it warns
about on loading) does not yet work with abcl.

Ole
-- 
Ole Arndt                     http://www.sugarshark.com

-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: abcl-readtable-case-invert.diff
URL: <https://mailman.common-lisp.net/pipermail/armedbear-devel/attachments/20110815/2c8d70cf/attachment.ksh>