require common lisp for loop function