Initial array contents aren't checked when setting specialized integer arrays

[Ferada]

Similar to https://abcl.org/trac/ticket/297 the element type is a bit confused when using :INITIAL-CONTENTS:

CL-USER(18): (make-array 10 :element-type '(unsigned-byte 16) :initial-contents #(-1 1 2 3 4 5 6 7 8 9))
#(-1 1 2 3 4 5 6 7 8 9) ;; expected error instead
CL-USER(19): (make-array 10 :element-type '(unsigned-byte 8) :initial-contents #(-1 1 2 3 4 5 6 7 8 9))
#(255 1 2 3 4 5 6 7 8 9) ;; expected error instead