(32 sb!vm:simple-array-unsigned-byte-32-widetag)
(t (error "losing element size: ~W" sizebits))))
(result (allocate-vector-object *dynamic* sizebits len type))
(32 sb!vm:simple-array-unsigned-byte-32-widetag)
(t (error "losing element size: ~W" sizebits))))
(result (allocate-vector-object *dynamic* sizebits len type))