Пример 11.37. Правильное переопределение слотов

(defclass A (is-a USER)

(slot foo (create-accessor write))

(defmessage-handler A get-foo ()

(dynamic-get foo))

(defclass В (is-a A)

(role concrete)

(slot foo (visibility public)

(create-accessor write))

Посылка сообщения get-foo экземпляру класса В, созданного таким образом, не приведет к возникновению ошибки (рис. 11.15).

Рис. 11.14. Ошибка переопределения слотов

Рис. 11.15. Правильное переопределение слотов