в которой возможно данное
(Defun super () ; Внешний уровень – обработчик внутренних событий
(catch 'abort ; Имя обрабатваемого внутреннего события
(sub) ; Вызов формы, в которой возможно данное событие
(print "It is impossible") ; Реакция на событие
) )
(Defun sub () ; Внутренний уровень
(throw 'abort 99) ; Вызов события
)
(super) ; Вызов формы, контролирующей внутренние события.
