|
From: | Paul F. Dietz |
Subject: | [Gcl-devel] (random tester) Compiler bug involving side effects in FLET |
Date: | Sun, 05 Oct 2003 18:09:41 -0500 |
User-agent: | Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.4) Gecko/20030624 |
----- (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
[Prev in Thread] | Current Thread | [Next in Thread] |