(let ((etype (sb!kernel:type-*-to-t
(sb!kernel:array-type-specialized-element-type ctype))))
(make-array 0 :element-type (sb!kernel:type-specifier etype))))))
(let ((etype (sb!kernel:type-*-to-t
(sb!kernel:array-type-specialized-element-type ctype))))
(make-array 0 :element-type (sb!kernel:type-specifier etype))))))