loop macro from

http://www.cs.cmu.edu/afs/cs/project/ai-repository/ai/lang/lisp/code/iter/loop/symbolix/

Conditional compilation for lisp machines and genera lisp dialect removed. (manually)