Skip to content
Commit 10859380 authored by Raymond Toy's avatar Raymond Toy
Browse files

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).
parent 00844093
Hide whitespace changes
Inline Side-by-side
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment