-;;; Store some saetp fields for DEFINE-ARRAY-DISPATCH since
-;;; sb!vm:*specialized-array-element-type-properties* is not always
-;;; available.
-(macrolet
- ((define-saetp-info ()
- `(eval-when (:compile-toplevel :load-toplevel :execute)
- (defglobal %%saetp-info%%
- ',(loop for saetp
- across sb!vm:*specialized-array-element-type-properties*
- collect `(,(sb!vm:saetp-typecode saetp)
- ,(sb!vm:saetp-specifier saetp)
- ,(sb!vm:saetp-primitive-type-name saetp)))))))
- (define-saetp-info))
-