(defclass A (is-a USER)
(role concrete)
(slot x (create-accessor write)
(default 1)))
(definstances A-OBJECTS
(al of A)
(of A (x 65)))
После этого включите режим отображения объектов с помощью команды (watch instances) и выполните команду (reset). Результат этих действий приведен на рис. 11.22.
Рис. 11.22. Использование конструктора definstances
Во время загрузки и после выполнения команды clear CLIPS автоматически добавляет предопределенные конструкторы.