"Object layout is invalid. (indicates obsolete instance)")
(object-not-complex-vector
"Object is not a complex (non-SIMPLE-ARRAY) vector.")
+ (tls-exhausted
+ "Thread local storage exhausted.")
.
#.(map 'list
(lambda (saetp)
(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*))