X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=14532ed64bf42438d940d9629c0c0e27ba0cf1ab;hb=94743c6e54d28544f72565e52a56877fa91f180c;hp=392ccfaa9953226ec2e67e9add5d1ffbfbfd43cf;hpb=84271f268f29364b57bfeb1b37642311eb8ab910;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index 392ccfa..14532ed 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -1080,7 +1080,7 @@
       :inherits (vector simple-array array sequence)
       :prototype-form (make-array 0 :element-type '(unsigned-byte 8)))
      (simple-array-unsigned-byte-15
-      :translation (simple-array (unsigned-byte 7) (*))
+      :translation (simple-array (unsigned-byte 15) (*))
       :codes (#.sb!vm:simple-array-unsigned-byte-15-widetag)
       :direct-superclasses (vector simple-array)
       :inherits (vector simple-array array sequence)