Как объявить функцию результат которой может использовать setf ?

[kmmbvnr]

Хочется чтоб по аналогии

(setf (car *x*) 5)

объявить функцию, которую можно было бы использовать вот так:

(setf (mycar *x*) 5)

Это возможно?