X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=6b868bd0f596ec0b8997f91dc50ef918ccff70a9;hb=829ced3e78a23ba153ba4db64e6ea6984c2313b6;hp=f6224ecf190d495990cb8797c2eafe209edf5d45;hpb=b38f10027f48f657f77b290719da4fec30064e25;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index f6224ec..6b868bd 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -1106,7 +1106,9 @@
       :prototype-form (complex 42l0 42l0))
      #!+sb-simd-pack
      (simd-pack
-      :translation simd-pack)
+      :translation simd-pack
+      :codes (#.sb!vm:simd-pack-widetag)
+      :prototype-form (%make-simd-pack-ub64 42 42))
      (real :translation real :inherits (number))
      (float
       :translation float