;; FIXME: Isn't this used for calls to unbound (SETF FOO) too? If so, revise
;; the name.
"An attempt was made to use an undefined FDEFINITION.")
+ #!+x86-64
+ (undefined-alien-fun
+ "An attempt was made to use an undefined alien function")
(invalid-arg-count
"invalid argument count")
(bogus-arg-to-values-list
#!+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
"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*))