common-lisp
Протокол Meta-Object CLOS
Поиск…
Получить имена слотов класса
Допустим, у нас есть класс, как
(defclass person ()
(name email age))
Чтобы получить имена слотов класса, мы используем функциональные классы-слоты. Это можно найти в пакете с более узким шваброй, предоставляемом системой более близкого швабра. Чтобы загрузить его, мы используем используемое изображение lisp (ql:quickload :closer-mop)
. Мы также должны убедиться, что класс завершен до вызова слотов класса.
(let ((class (find-class 'person)))
(c2mop:ensure-finalized class)
(c2mop:class-slots class))
который возвращает список эффективных объектов определения слотов :
(#<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION S/TRANSFORMATIONS::NAME>
#<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION S/TRANSFORMATIONS::EMAIL>
#<SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION S/TRANSFORMATIONS::AGE>)
Обновление слота при изменении другого слота
CLOS MOP предоставляет класс использования слота hook-value, который вызывается при доступе к слоту, чтении или изменении. Поскольку мы только заботимся о модификациях, в этом случае мы определяем метод для (setf slot-value-using-class)
.
(defclass document ()
((id :reader id :documentation "A hash computed with the contents of every other slot")
(title :initarg :title :accessor title)
(body :initarg :body :accessor body)))
(defmethod (setf c2mop:slot-value-using-class) :after
(new class (object document) (slot c2mop:standard-effective-slot-definition))
;; To avoid this method triggering a call to itself, we check that the slot
;; the modification occurred in is not the slot we are updating.
(unless (eq (slot-definition-name slot) 'id)
(setf (slot-value object 'id) (hash-slots object))))
Обратите внимание, что, поскольку в экземпляре создание slot-value
не вызывается, может потребоваться дублировать код в initialize-instance :after
method
(defmethod initialize-instance :after ((obj document) &key)
(setf (slot-value obj 'id)
(hash-slots obj)))