(1 (make-array len :element-type 'bit))
(2 (make-array len :element-type '(unsigned-byte 2)))
(4 (make-array len :element-type '(unsigned-byte 4)))
(1 (make-array len :element-type 'bit))
(2 (make-array len :element-type '(unsigned-byte 2)))
(4 (make-array len :element-type '(unsigned-byte 4)))
(32 (make-array len :element-type '(unsigned-byte 32)))
(t (bug "losing i-vector element size: ~S" size)))))
(declare (type index len))
(32 (make-array len :element-type '(unsigned-byte 32)))
(t (bug "losing i-vector element size: ~S" size)))))
(declare (type index len))
(res (case size
(8 (make-array len :element-type '(signed-byte 8)))
(16 (make-array len :element-type '(signed-byte 16)))
(res (case size
(8 (make-array len :element-type '(signed-byte 8)))
(16 (make-array len :element-type '(signed-byte 16)))
(30 (make-array len :element-type '(signed-byte 30)))
(32 (make-array len :element-type '(signed-byte 32)))
(t (bug "losing si-vector element size: ~S" size)))))
(30 (make-array len :element-type '(signed-byte 30)))
(32 (make-array len :element-type '(signed-byte 32)))
(t (bug "losing si-vector element size: ~S" size)))))