ANSI Common Lisp LOOP macro