Subject: [clisp-list] (random tester) Failure involving let, setq, unwind-protect

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

This may or may not be related to the other bug the tester found today:

(defparameter *f1*
   '(lambda (a b c)
      (let ((v9 a))
        (let ((v2 (setq v9 c)))
	 (unwind-protect c)))))

(print (apply (compile nil *f1*) '(x y z))) ==> (x y z)
(print (apply (eval `(function ,*f1*)) '(x y z))) ==> z

	;; Paul