X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftypep.lisp;h=374d3bcc37301920639186745c1e24238bc45966;hb=44fa19275c08a17b9d80d95102c1a8bc0da7a17e;hp=ccd66417b68a4cece2df2e7b20c9c1bda1e825e9;hpb=75f37cd646778cc8d4bed86d79309b7161bd41dc;p=sbcl.git

diff --git a/src/code/typep.lisp b/src/code/typep.lisp
index ccd6641..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))
@@ -199,7 +205,7 @@
         (aver (< i 2))
         (when (layout-invalid obj-layout)
           (setq obj-layout (update-object-layout-or-invalid object layout)))
-        (%ensure-classoid-valid classoid layout))
+        (%ensure-classoid-valid classoid layout "typep"))
     (let ((obj-inherits (layout-inherits obj-layout)))
       (or (eq obj-layout layout)
           (dotimes (i (length obj-inherits) nil)