[no subject]

[KMP at MIT-MC (Kent M. Pitman)]

    Date: 20 June 1980 02:52-EDT
    From: Edward Barton <EB at MIT-AI>
    Subject: INHIBIT restoration bug
    To: BUG-LISP at MIT-AI

    Also happens when UNWIND-PROTECT is used instead of *CATCH.

Well, UNWIND-PROTECT, in the case of normal return, UNWIND-PROTECT
is supposed to ... ie, it works something like

    (DEFUN UNWIND-PROTECT FEXPR (BODY)
	   (PROG1 (EVAL (CAR BODY))
		  (LET ((+INTERNAL-WITHOUT-INTERRUPTS T)) ;Bind INHIBIT, etc
		       (MAPC 'EVAL (CDR BODY)))))

when no non-local returns happen ... does this account for your bug?
If not, please give us an example of what you mean...