Back end work for short vector SIMD packs

[sbcl.git] / src / code / target-type.lisp

diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
index 5bff4bd..1310453 100644 (file)
--- a/src/code/target-type.lisp
+++ b/src/code/target-type.lisp
@@ -35,7 +35,8 @@
          array-type
          character-set-type
          built-in-classoid
-         cons-type)
+         cons-type
+         #!+sb-simd-pack simd-pack-type)
      (values (%typep obj type) t))
     (classoid
      (if (if (csubtypep type (specifier-type 'function))