Greetings! So you are saying this is not a bug, right? Take care,
Robert Boyer <[EMAIL PROTECTED]> writes: > > Is this also applicable to the bug running compile under loop? > > It is the exact same bug, I sort of believe. LOOP generates a BLOCK and that > creates the problem, binding the name lexically as it does something or other > for return-from purposes. Whatever all that might mean! > > (macroexpand '(loop for i from 1 to n do (foo))) > > (BLOCK () > (LET ((I 1) (#:G1951 N)) > (DECLARE (TYPE REAL #:G1951) (TYPE REAL I)) > (ANSI-LOOP::LOOP-BODY NIL > (NIL NIL (WHEN (> I #:G1951) (GO ANSI-LOOP::END-LOOP)) NIL) > ((FOO)) > (NIL (ANSI-LOOP::LOOP-REALLY-DESETQ I (1+ I)) > (WHEN (> I #:G1951) (GO ANSI-LOOP::END-LOOP)) NIL) > NIL))) > > > -- Camm Maguire [EMAIL PROTECTED] ========================================================================== "The earth is but one country, and mankind its citizens." -- Baha'u'llah _______________________________________________ Gcl-devel mailing list [email protected] http://lists.gnu.org/mailman/listinfo/gcl-devel
