- (let ((data (cond
- (widetag
- (allocate-vector-with-widetag widetag total-size))
- (initial-element-p
- (make-array total-size
- :element-type element-type
- :initial-element initial-element))
- (t
- (make-array total-size
- :element-type element-type)))))
+ (unless (typep initial-element element-type)
+ (error "~S cannot be used to initialize an array of type ~S."
+ initial-element element-type)))
+ (let ((data (if widetag
+ (allocate-vector-with-widetag widetag total-size)
+ (make-array total-size :element-type element-type))))