X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftypep.lisp;h=374d3bcc37301920639186745c1e24238bc45966;hb=cee8ef591040db9a79cdd19297867672a9529051;hp=531b1ab4ff9c26f6dc7bcdd30f9d4073cdef4357;hpb=b704b22c4bea05b9e6551ef0c0a26add7a7df083;p=sbcl.git

diff --git a/src/code/typep.lisp b/src/code/typep.lisp
index 531b1ab..374d3bc 100644
--- a/src/code/typep.lisp
+++ b/src/code/typep.lisp
@@ -121,6 +121,12 @@
      (and (consp object)
           (%%typep (car object) (cons-type-car-type type) strict)
           (%%typep (cdr object) (cons-type-cdr-type type) strict)))
+    #!+sb-simd-pack
+    (simd-pack-type
+     (and (simd-pack-p object)
+          (let* ((tag (%simd-pack-tag object))
+                 (name (nth tag *simd-pack-element-types*)))
+            (not (not (member name (simd-pack-type-element-type type)))))))
     (character-set-type
      (and (characterp object)
          (let ((code (char-code object))