common-lisp.net / projects/cmucl/cmucl.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 0084409) | patch
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
tree50c954d320c187292e983e4efe0584534c42e19ftree
parent00844093cfc536936a1797bfbfa910ab1e4db7fecommit | diff
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 diff | blob | blame | history
CMU Common Lisp