- `(progn
- ,@(map 'list
- (lambda (saetp)
- (let ((primtype (saetp-primitive-type-name saetp)))
- `(!define-type-vops
- ,(symbolicate primtype "-P")
- ,(symbolicate "CHECK-" primtype)
- ,primtype
- ,(symbolicate "OBJECT-NOT-" primtype "-ERROR")
- (,(saetp-typecode saetp)))))
- *specialized-array-element-type-properties*))))
+ `(progn
+ ,@(map 'list
+ (lambda (saetp)
+ (let ((primtype (saetp-primitive-type-name saetp)))
+ `(!define-type-vops
+ ,(symbolicate primtype "-P")
+ ,(symbolicate "CHECK-" primtype)
+ ,primtype
+ ,(symbolicate "OBJECT-NOT-" primtype "-ERROR")
+ (,(saetp-typecode saetp)))))
+ *specialized-array-element-type-properties*))))