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

[Paul F. D. <di...@dl...>]

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