Signal an error if the readtable case of the standard readtable is
authorRaymond Toy <toy.raymond@gmail.com>
Sun, 24 Feb 2013 04:44:23 +0000 (20:44 -0800)
committerRaymond Toy <toy.raymond@gmail.com>
Sun, 24 Feb 2013 04:44:23 +0000 (20:44 -0800)
commit10859380420e467d96a57a95f267c46320a6f57c
tree50c954d320c187292e983e4efe0584534c42e19f
parent00844093cfc536936a1797bfbfa910ab1e4db7fe
Signal an error if the readtable case of the standard readtable is
changed.

* Rename the slot to %READTABLE-CASE (from READTABLE-CASE).
* Add READTABLE-CASE and (SETF READTABLE-CASE) functions, as required.
* Check for the standard readtable in (SETF READTABLE-CASE).
src/code/reader.lisp