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