Re: (setf (readtable-case *readtable*) :invert) completely preserves symbol case in CMUCL

Subject: Re: (setf (readtable-case *readtable*) :invert) completely preserves symbol case in CMUCL
From: Erik Naggum <erik@naggum.net>
Date: Sun, 26 May 2002 15:33:22 GMT
Newsgroups: comp.lang.lisp
Message-ID: <3231416000515693@naggum.net>

* 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.