Common Lisp already has ROTATEF and SHIFTF.