Пример 11.21. Слоты с различными гранями распространения при наследовании

(defclass A (is-a USER)

(role concrete)

(slot foo (propagation inherit))

(slot bar (propagation no-inherit)))

(defclass В (is-a A))

Создайте экземпляры объектов обоих классов и просмотрите содержащиеся в них слоты

помощью стандартного сообщения print. Результат этой опе­рации представлен на рис. 11.7.

Рис. 11.7. Просмотр слотов классов А и В