X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-type.lisp;h=1f877a01bb087f2044ab61da80acf744d2372d10;hb=f44f6d1adbaaa7057f1948369299c0b2a08bcd6e;hp=1310453b8608aa90ccd0a987a8ad432748d724e5;hpb=3031b264496451e796282d7309c2221d89ee62c1;p=sbcl.git

diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
index 1310453..1f877a0 100644
--- a/src/code/target-type.lisp
+++ b/src/code/target-type.lisp
@@ -167,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))))