From ... Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.tele.dk!small.news.tele.dk!194.176.220.130!newsfeed.icl.net!kibo.news.demon.net!demon!newsfeed.belnet.be!news.belnet.be!news.brutele.be!nmaster.kpnqwest.net!nnum.kpnqwest.net!EU.net!nreader2.kpnqwest.net.POSTED!not-for-mail Newsgroups: comp.lang.lisp Subject: Re: (setf (readtable-case *readtable*) :invert) completely preserves symbol case in CMUCL References: Mail-Copies-To: never From: Erik Naggum Message-ID: <3231416000515693@naggum.net> Organization: Naggum Software, Oslo, Norway Lines: 17 User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Date: Sun, 26 May 2002 15:33:22 GMT X-Complaints-To: newsmaster@KPNQwest.no X-Trace: nreader2.kpnqwest.net 1022427202 193.71.199.50 (Sun, 26 May 2002 17:33:22 MET DST) NNTP-Posting-Date: Sun, 26 May 2002 17:33:22 MET DST Xref: archiver1.google.com comp.lang.lisp:33937 * Adam Warner | After trying to find a way to preserve symbol case in CMUCL I have | discovered that (setf (readtable-case *readtable*) :invert) preserves | symbol case perfectly (also without breaking existing lowercase code): Try the following two forms and report your understanding of the interaction of the symbol reader and the printer: (mapcar #'symbol-name '(UPPER UPPER-lower lower)) (mapcar #'intern '("UPPER" "UPPER-lower" "lower")) There is potential enligthenment here. -- In a fight against something, the fight has value, victory has none. In a fight for something, the fight is a loss, victory merely relief. 70 percent of American adults do not understand the scientific process.