(defmacro monyo (a)
`(car ,a))

(let* ((data 'c)
(li '(a d))
(func "monyo"))
;; (setf (funcall (intern func) li) data)
(eval `(setf (,(intern func) li) data))
;; (print "~S" li))
(print li))