[Gcl-devel] Re: Wait!

[Camm Maguire]

Greetings!  So you are saying this is not a bug, right?

Take care,

Robert Boyer <address@hidden> 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                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah