Back end work for short vector SIMD packs

[sbcl.git] / src / code / class.lisp

diff --git a/src/code/class.lisp b/src/code/class.lisp
index f6224ec..6b868bd 100644 (file)
--- 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