X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Freadtable.lisp;h=a93b8951259ae79f90ab5b2d077f61b2c5fcf13e;hb=0b5610d8a220a4b20cbeac958953ca4d67c00038;hp=a4d412dfebdbb36c24ba355af7f504522e6be328;hpb=8624c52d7620e8a4d3de23c363e843a10815f4f4;p=sbcl.git

diff --git a/src/code/readtable.lisp b/src/code/readtable.lisp
index a4d412d..a93b895 100644
--- a/src/code/readtable.lisp
+++ b/src/code/readtable.lisp
@@ -15,8 +15,7 @@
   '(simple-array (unsigned-byte 8) (#.char-code-limit)))
 
 (sb!xc:defstruct (readtable (:conc-name nil)
-			    (:predicate readtablep)
-			    (:copier nil))
+			    (:predicate readtablep))
   #!+sb-doc
   "Readtable is a data structure that maps characters into syntax
    types for the Common Lisp expression reader."