sbcl/contrib/sb-rotate-byte