Как я могу использовать setf для методов доступа к структуре при использовании intern

Я бы хотел setf различных полей структуры в зависимости от Я решил использовать следующий подход:

Сгенерировать строку с именем средства доступа к полю:

(setq my-string (format nil "STRUCT-ESTADISTICAS-NUM-~S" x))

и затем использовать intern с funcall:

(funcall (intern my-string) *estadisticas*)

Этот вызов возвращает правильное значение структуры ' Любая идея? Спасибо.