Use a more idiomatic CLISP for-loop
This function is never used
add comment