Remove volatile header.
Use cl-loop