Subject: [clisp-list] (random tester) Compiler bug involving flet, let, unwind-protect

From: "Paul F. Dietz" <[email-masked]>
Date: Mon Oct 13 19:31:05 2003

The gcl random tester has found the following bug in clisp (built 1 Oct 2003):

(defparameter *fn*
   '(lambda (b)
      (flet ((%f10 nil :bad))
        (let ((v7 (let ((v2 (%f10))) b)))
	 (unwind-protect b)))))

(print (funcall (compile nil *fn*) :good))  ;; ==> :BAD
(print (funcall (eval `(function ,*fn*)) :good)) ;; ==> :GOOD

	;; Paul