4 (let ((simple-t (make-array 35))
5 (simple-u32 (make-array 50 :element-type '(unsigned-byte 32)))
6 (simple-character (make-string 44))
7 (complex-t (make-array 35 :fill-pointer 3))
8 (complex-u32 (make-array 88 :element-type '(unsigned-byte 32)))
9 (complex-character (make-array 14
10 :element-type 'character
12 (assert (= (length simple-t) 35))))