22.214.171.124: Fix package locks checks for local functions in the interpeter.
* Package lock checks were being performed in the function binding form's
body's lexical environment, causing lossage for forms like
(locally (declare (disable-package-locks foo:bar))
(flet ((foo:bar ...))
(declare (enable-package-locks foo:bar))
In particular, this broke some TRACE extensions.
Richard M Kreuter