Added definition of class LOOP-BODY from old component parse.lisp.