Статья: Функциональное программирование

(make-pet :nick 'viola :age '(3 years) :sex 'femina))

и функцию доступа для каждого из полей, например pet-nick, использующуюся для получения значения поля или ссылки на него. Если поле не инициализировано (ни по умолчанию, ни конструктором), оно получает начальное значение nil. Никакой дальнейшей спецификации полей структур нет6.

В объекте для каждого поля могут явно указываться функции доступа и имена ключевых параметров для инициализации аргументов. Приведем пример класса, определенного на базе другого класса.

(defclass pet (animal possession) (

(species :initform 'cat)

(nick :accessor nickof

:inintform 'Pussy

:initarg namepet)

)

Этот класс наследует поля, функции доступа и прочее от классов animal и possession. Например, поле cost имеется в значении класса, если оно имеется в одном из этих классов. Поскольку статических типов у полей нет, нет и конфликтов.

Основная функция наследования в CLOS - определение упорядочения на классах. С каждым классом связано свое упорядочение. Наследник меньше своих предков, из предков меньшим считается тот, который раньше перечислен в списке наследования при определении класса. CLOS достраивает этот частичный порядок до линейного. Способ пополнения порядка может быть в любой момент и без оповещения изменен, и хакерское использование особенностей конкретного пополнения считается грубой стилистической ошибкой. Если система находит несовместимость в определении порядка, то она выдает ошибку, как в следующем примере:

[6]> (defclass init () ())

#<STANDARD-CLASS INIT>

[7]> (defclass a (init) ())

#<STANDARD-CLASS A>

[8]> (defclass b (init) ())

#<STANDARD-CLASS B>

[9]> (defclass c1 (a b) ())

#<STANDARD-CLASS C1>

[10]> (defclass c2 (b a) ())

#<STANDARD-CLASS C2>

[11]> (defclass contr (c1 c2) ())

*** - DEFCLASS CONTR:

inconsistent precedence graph,

cycle (#<STANDARD-CLASS A> #<STANDARD-CLASS B>)

В CLOS могут задаваться методы, отличающиеся от функций тем, что их аргументы специфицированы, например

(defmethod inspectpet ((x pet) (y float))

(setf weightofanimal 3.5))

Как видно из этого примера, методы не обязательно связаны с классами. Они могут быть связаны с любыми типами. Методы в CLOS могут иметь дополнительные спецификации. Для того, чтобы разобраться, как эти спецификации взаимодействуют с упорядочением типов классов, рассмотрим следующую программу и генерируемый при ее исполнении результат.