(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))
(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)