"Object is not of type SIMPLE-STRING.")
(object-not-fixnum
"Object is not of type FIXNUM.")
+ (object-not-mod
+ "Object is not of type (MOD X).")
(object-not-vector
"Object is not of type VECTOR.")
(object-not-string
#!+long-float
(object-not-complex-long-float
"Object is not of type (COMPLEX LONG-FLOAT).")
+ #!+sb-simd-pack
+ (object-not-simd-pack
+ "Object is not of type SIMD-PACK.")
(object-not-weak-pointer
"Object is not a WEAK-POINTER.")
(object-not-instance
(list
(symbolicate "OBJECT-NOT-" (sb!vm:saetp-primitive-type-name saetp))
(format nil "Object is not of type ~A."
- (specifier-type
- `(simple-array ,(sb!vm:saetp-specifier saetp) (*))))))
+ (type-specifier
+ (specifier-type
+ `(simple-array ,(sb!vm:saetp-specifier saetp) (*)))))))
sb!vm:*specialized-array-element-type-properties*))