2 (dolist (type '(single-float double-float (unsigned-byte 8)
3 (unsigned-byte 32) (signed-byte 32)))
6 collect (sb-int:make-static-vector
7 256 :element-type type)))
8 (saps (mapcar #'sb-sys:vector-sap vectors)))
10 (assert (every #'sb-sys:sap=
12 (mapcar #'sb-sys:vector-sap vectors)))))