@akater покажи asetf

лол, а ты знаешь чем анафорические макросы плохи?

Жизнь бессмысленна, счастье иллюзорно, хорошее запоминается хуже плохого, ни одно доброе дело не остается безнаказанным, в мире становится меньше свободы — в мире, который интересен программистам, в том числе.  Быть несчастным легко, так что удивительного нет, но люди как-то недооценивают эту легкость.

Я читал чё-то про отчет о наблюдении за людьми, которые умирая, сожалели о разном, и самое популярное в наблюдениях было I wish I didn't work so much.  Еще одно исследование, проводившееся много десятков лет, вроде уникальное этим свойством, определило, что качество жизни очень сильно определяется качеством отношений с самыми близкими друзьями.

Тонски заебись в мск устраивал у себя дома публичные просмотры кинчиков, пытался раскачаться

ну это надо ещё посмотреть насчет Васяна

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

Но лучше про 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.

так плохо делать, ты шадовишь pair символ, его сначала нужно gensym сделать чтобы шадовинга не было, типа

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

можешь ещё через cl-destructuring-bind сделать