(def-type-predicate-wrapper integerp)
(def-type-predicate-wrapper listp)
(def-type-predicate-wrapper long-float-p)
- #!+(and sb-thread sb-lutex)
- (def-type-predicate-wrapper lutexp)
(def-type-predicate-wrapper lra-p)
(def-type-predicate-wrapper null)
(def-type-predicate-wrapper numberp)
(def-type-predicate-wrapper realp)
(def-type-predicate-wrapper short-float-p)
(def-type-predicate-wrapper single-float-p)
+ #!+sb-simd-pack (def-type-predicate-wrapper simd-pack-p)
(def-type-predicate-wrapper %instancep)
(def-type-predicate-wrapper symbolp)
+ (def-type-predicate-wrapper %other-pointer-p)
(def-type-predicate-wrapper system-area-pointer-p)
(def-type-predicate-wrapper weak-pointer-p)
#!+#.(cl:if (cl:= 32 sb!vm:n-word-bits) '(and) '(or))
(extended-char 'extended-char)
((member t) 'boolean)
(keyword 'keyword)
- ((or array complex)
+ ((or array complex #!+sb-simd-pack sb!kernel:simd-pack)
(type-specifier (ctype-of object)))
(t
(let* ((classoid (layout-classoid (layout-of object)))