(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 <имя-класса> <имя-сообщения>)