Введение в программирование на Лиспе



             

Пример 9.3


(Defun super () ; Внешний уровень – обработчик внутренних событий

(catch 'abort ; Имя обрабатваемого внутреннего события

(sub) ; Вызов формы, в которой возможно данное событие

(print "It is impossible") ; Реакция на событие

) )

(Defun sub () ; Внутренний уровень

(throw 'abort 99) ; Вызов события

)

(super) ; Вызов формы, контролирующей внутренние события.




Содержание  Назад  Вперед