X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Freadtable.lisp;h=a033074468fb718f4c48553eabf39639576e5490;hb=829ced3e78a23ba153ba4db64e6ea6984c2313b6;hp=df0952143f52af60f4fb462f948c3e7f5758b114;hpb=1be27547ed9a2e98c689b4885c1de3ed9de28ca3;p=sbcl.git

diff --git a/src/code/readtable.lisp b/src/code/readtable.lisp
index df09521..a033074 100644
--- a/src/code/readtable.lisp
+++ b/src/code/readtable.lisp
@@ -83,4 +83,4 @@
   ;; an alist from dispatch characters to hash-tables akin to
   ;; CHARACTER-MACRO-HASH-TABLE.
   (dispatch-tables () :type list)
-  (readtable-case :upcase :type (member :upcase :downcase :preserve :invert)))
+  (%readtable-case :upcase :type (member :upcase :downcase :preserve :invert)))