Пример 11.38. Создание демона системного обработчика init

(defclass A (is-a USER)

(role concrete))

(defmessage-handler A init before ()

(printout t "Initializing a new instance of class A..." crlf))

Здесь к классу а присоединен демон-обработчик before, который выполня­ется всякий раз перед инициализацией объекта (т. е. получения им систем­ного сообщения init). Результат — на рис. 11.16.

Рис. 11.16. Создание демона системного обработчика init

Инициализация объекта

При создании любой объект, который является потомком класса user, получает сообщение init, обрабатываемое предопределенным системным обработчиком.