Function: cl-struct-setf-expander

(fn X NAME ACCESSOR PRED-FORM POS)