Fixed non-ANSI code

In LOOP statements, a WHILE cannot appear before a FOR statement. This is not valid ANSI code, as per the specification http://www.lispworks.com/documentation/HyperSpec/Body/m_loop.htm Indeed, ECL does not support this.