The Allegro Common Lisp LOOP macro