Re: [Gcl-devel] (random tester) Compiler bug involving side effects in FLET

[Camm Maguire]

Greetings, Paul, and thanks as always.  Fixed in 2.6.1 and cvs HEAD.
Your turn :-)

Take care,

"Paul F. Dietz" <address@hidden> writes:

> -----
> 
> (defparameter *f*
>    '(lambda (a)
>       (flet ((%f8 nil (setq a 0)))
>         (let ((v9 a)) (- (%f8) v9)))))
> 
> (print (funcall (compile nil *f*) 1))        ;; ==> 0 (incorrect)
> (print (funcall (eval `(function ,*f*)) 1))  ;; ==> -1 (correct)
> 
> I'd guess V9 is being replaced with A inside the LET, which isn't
> correct here.
> 
> -----
> 
>       Paul
> 
> 
> 
> _______________________________________________
> Gcl-devel mailing list
> address@hidden
> http://mail.gnu.org/mailman/listinfo/gcl-devel
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah