Пример 16.7. Использование команды list-defmessage-handlers

(defclass A (is-a USER))

(defmessage-handler A foo ())

(list-defmessage-handlers A)

(list-defmessage-handlers A inherit)

Результат выполнения приведенных выше команд представлен на рис. 16.6.

Рис. 16.6. Использование команды list-defmessage-handlers

Для удаления обработчиков сообщений предназначена команда undefmes-sage-handler.

Определение 16.62. Команда undefmessage-handler

(undefmessage-handler <имя-класса> <имя-обработчика> [<тип-обработчика>])
<тип-обработчика>::= around | before │ primary | after

Назначение аргументов данной команды аналогично назначению аргументов команды ppdefmessage-handler. В качестве любого аргумента может быть использован символ *.

Команда preview-send предназначена для отображения всех обработчиков, применимых к заданному сообщению.

Определение 16.63. Команда preview-send

(preview-send <имя-класса> <имя-сообщения>)