Remove the need for cl-emacs and do away with loop and use while.