X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=d9db35fbff7c580786acc5211c955d271ff4fa2c;hb=0b96758f3645dff3e681d82cc97ddab1faae27ac;hp=e6b0b8ba11bbac3b8a6d362cf824e958faf68431;hpb=63817d29028c8551cda23f432a3328acd7fdd62f;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index e6b0b8b..d9db35f 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -937,6 +937,7 @@ NIL is returned when no such class exists."
    '((t :state :read-only :translation t)
      (character :enumerable t 
                 :codes (#.sb!vm:character-widetag)
+                :translation (character-set)
                 :prototype-form (code-char 42))
      (symbol :codes (#.sb!vm:symbol-header-widetag)
              :prototype-form '#:mu)