Пример 15.31. Использование функции slot-facets

(clear)

(defclass A (is-a USER)

(slot x (access read-only)))

(defclass В (is-a A)

(multislot y))

(slot-facets В х)

(slot-facets В у)

Рис. 15.28. Использование функции slot-facets

Следующая группа функций предназначена для определения значений от­дельных свойств и граней заданных слотов.

Функция slot-sources возвращает список названий классов, которые ис­пользовались при наследовании граней заданного слота (пример 15.32 и рис. 15.29). Если грани слота эксклюзивно определял один класс, то список будет состоять из имени одного класса. Составная величина нулевой длины возвращается в случае возникновения ошибки.

Определение 15.81, Функция slot-sources

(slot-sources < имя-класса> < имя-слота>)

Пример 15.32. Использование функции slot-sources

(clear)

(defclass A (is-a USER)

(slot x (access read-only))) (defclass В (is-a A)

(slot x (source composite)

(default 100))) (defclass С (is-a B))

(slot-sources A x) (slot-sources В x)

(slot-sources С x)

Рис. 15.29. Использование функции slot-sources

Функция slot-types возвращает список названий примитивных типов слота.