а нахуя макрос кстати? почему не функцию сделать?

Я мало писал defsetf'ов, написал по шаблону из CLHS.

но тоже с генсимами надо

Хочу кстати &gensym в defmacro.

Желания — неотъемлемая честь человеческой деятельности. Но да, существование абсурдно.  Лучше никогда не существовать, но нам эта роскошь недоступна.

Но лучше про thing-at-point.  Я хотел определить декремент целого числа под курсором (тоже странно,что его нет; я не потерял ли че из виду?), определил так

(defun decrement-integer-at-point ()
  (interactive)
  (asetf (integer-at-point) (1- it))) 

и доволен.  Но это требует определять (setf thing-at-point).  Я определил так:

(defsetf thing-at-point (thing) (value)
  `(let ((pair (bounds-of-thing-at-point ,thing)))
     (replace-region-contents (car pair) (cdr pair)
       (lambda () (ensure-string ,value))))) 

(в елиспе нет ensure-string — что тоже странно)
но м.б. это можно как-то улучшить.  Ideas are welcome.

а что должна ensure-string делать?

я думаю (if (stringp x) x (x->string x))

а что должна ensure-string делать?

Например

(defun akater-misc-ensure-string (x)
 (cl-etypecase x
   (number (number-to-string x))
   (keyword (substring (symbol-name x) 1))
   (symbol (symbol-name x))
   (string x)))

Вставить там можно строку или буфер (?), и я не знаю вот, есть ли тут простор какой-то, чтоб гибче интерфейс сделать.

так лучше так и писать, чем прятать неявность какую-то, ensure-string не нужна в elispе