gcl-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]