(do ((i 0))
((= i len4))
(declare (fixnum i))
(setf (aref (the (simple-array (unsigned-byte 32) (*)) str) i)
(uffi:deref-array s '(:array :unsigned-int) i))
(incf i))
(do ((i 0))
((= i len4))
(declare (fixnum i))
(setf (aref (the (simple-array (unsigned-byte 32) (*)) str) i)
(uffi:deref-array s '(:array :unsigned-int) i))
(incf i))