Процедуры lexical-address-lookup и lexical-address-set!

Напишите процедуру lexical-address-lookup , которая реализует новую операцию поиска. Она должна брать два аргумента — лексический адрес и окружение времени компиляции, — и возвращать значение переменной, находящейся по указанному лексическому адресу. Lexical-address-lookup должна сообщать об ошибке, если значением переменной является символ *unassigned* . Кроме того, напишите процедуру lexical-address-set! , реализующую операцию, которая изменяет значение переменной по указанному лексическому адресу.

---