X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-type.lisp;h=1f877a01bb087f2044ab61da80acf744d2372d10;hb=cd1b14acf6f548b28b8a14e554d779f0473122ec;hp=5bff4bd413353764657785ff4d4685d2ba36662d;hpb=4084b6b95c1d5e0a45e073a9b875d8471efd8505;p=sbcl.git

diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
index 5bff4bd..1f877a0 100644
--- 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))
@@ -166,6 +167,12 @@
      (make-cons-type *universal-type* *universal-type*))
     (character
      (specifier-type 'character))
+    #!+sb-simd-pack
+    (simd-pack
+     (let ((type (nth (%simd-pack-tag x) *simd-pack-element-types*)))
+       (if type
+           (specifier-type `(simd-pack ,type))
+           (specifier-type 'simd-pack))))
     (t
      (classoid-of x))))