unwind-protect

To: common-lisp@SU-AI.ARPA

Subject: unwind-protect

From: Pavel.pa@Xerox.COM

Date: Fri, 11 Apr 1986 23:47:00 -0000

Cc: vanMelle.pa@Xerox.COM,Pavel.pa@Xerox.COM

Format: TEdit

What is the result of this code:
(proclaim '(special *foo*))
(let* ((x 'good)
(*foo* x))
(block bar
(unwind-protect
(let ((*foo* 'bad))
(return-from bar))
(setq x *foo*)))
x)
The Zetalisp manual says it will return GOOD, but the silver book is
silent on the issue. This should be clarified.
Pavel