[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-02-21-g1085938

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  10859380420e467d96a57a95f267c46320a6f57c (commit)
      from  00844093cfc536936a1797bfbfa910ab1e4db7fe (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 10859380420e467d96a57a95f267c46320a6f57c
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Feb 23 20:44:23 2013 -0800

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

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index 3b4d06b..4eabc4e 100644
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -144,7 +144,7 @@
   ;; vectors of CHAR-CODE-LIMIT functions, for use in defining dispatching
   ;; macros (like #-macro).
   (dispatch-tables () :type list)
-  (readtable-case :upcase :type (member :upcase :downcase :preserve :invert))
+  (%readtable-case :upcase :type (member :upcase :downcase :preserve :invert))
   ;;
   ;; The CHARACTER-ATTRIBUTE-HASH-TABLE handles the case of char codes
   ;; above ATTRIBUTE-TABLE-LIMIT, since we expect these to be
@@ -466,6 +466,13 @@
     (cerror "Modify it anyway." 'kernel:standard-readtable-modified-error
 	    :operation operation)))
 
+(defun readtable-case (table)
+  (%readtable-case table))
+
+(defun (setf readtable-case) (new-case table)
+  (assert-not-standard-readtable table '(setf readtable-case))
+  (setf (%readtable-case table) new-case))
+
 (defun copy-readtable (&optional (from-readtable *readtable*) to-readtable)
   "A copy is made of from-readtable and place into to-readtable."
   (assert-not-standard-readtable to-readtable 'copy-readtable)

-----------------------------------------------------------------------

Summary of changes:
 src/code/reader.lisp |    9 ++++++++-
 1 files changed, 8 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp