Инкрементирование всех элементов в списке

incf — это макрос.

Причем он предназначен для модификации значения места (place).

Скорее всего, ты хотел вот так:

(mapcar #'1+ '(1 2 3))

Понял, спасибо, никак не могу привыкнуть, что имена функций так можно коверкать.(1+)

мне нравится «fmakunbound», вся такая интуитивная

Вариант с mapcar подходит если тебе нужен новый список с изменёнными элементами.

А если действительно нужно изменить элементы в существующем списке, то

(defvar *a* (list 1 2 3))

(loop :for i :on *a* :do (incf (car i)))

*a* => (2 3 4)

Или

(maplist (lambda (x) (incf (car x))) *a*)

мне нравится «fmakunbound», вся такая интуитивная

С учётом того, что то, что она отвязывает называется fdefinition, то вполне очевидно. Хотя, как и в сишном creat, очень хочется добавить букву e.

Спасибо, есть еще один вопросик:
Есть ассоциативный список основанный на точечных парах.
Мне нужно локальной переменной присвоить указатель на cdr одной из точечных пар(по сути некое число) для дальнейшего изменения списка.
(При обычном использование let происходит копирование числа)
Как это правильно сделать?

Есть еще деструктивный map-into. По идее он может работать без consing.

CL-USER 1 > (setf x (list 1 2 3))
(1 2 3)

CL-USER 2 > (map-into x #'1+ x)
(2 3 4)

CL-USER 3 > x
(2 3 4)

Если ты имеешь в виду под «ассоциативным списком, основанным на точечных парах» обыкновенный alist, то для него есть стандартная функция assoc, которая возвращает точечную пару. Через нее можно менять ячейку cdr. В общем, вместо указателя использовать ячейку cons.

Я так его и получаю, но при присвоение его переменной в let происходит копирование. Предлагаете обернуть в ячейку?

А нельзя как-нибудь и cdr вести в присвоение i?

Не понятен вопрос. Setf - это совершенно особый макрос в лиспе. Он имеет несколько способов настройки. Есть совершенно хардкордный, когда залезаешь в потроха кодогенерации. За исключением тривиального случая (setq), макрос идет в связке с некоторым символом. Конструкцию "(setf (cdr x) y)" следует воспринимать как одно целое.

cdr вести в присвоение i

Если тебе нужна ссылка, то нельзя. В целом можно считать cons структурой с двумя полями, которая передаётся по ссылке. А если ты напишешь (let ((i ...)) (setf i ...)), то меняться будет только переменная i, а не её содержимое (чего ты ожидаешь от ссылки).

присвоить указатель на cdr одной из точечных пар(по сути некое число)

Указателем является сама пара. А если ты к ней применишь cdr, то получишь просто число (которое уже не указатель).

как-нибудь и cdr

Если просто вопрос эстетики, а не производительности, то

(symbol-macrolet ((i (cdr (assoc 'a x))))
  (setf i (* i 3))) ;; будет изменять соответствующую ячейку

Быстро и красиво как-то так

(let ((pair (assoc 'a x))) ;; ссылка на пару
  (sumbol-macrolet ((i (cdr pair)))
     (setf i (* i i i)))) ; каждое обращение к i теперь O(1), а не O(n), как было бы если не выносить assoc

Спасибо за разъяснение. Этого мне хватит.

Задача: инкрементировать все элементы в списке
Программист: (решение в одну строчку)
Лиспер: mapcar, incf, lambda, fmakunbound, defvar, list, loop, maplist, car, cdr, caar, cddr, cadr, cdddr, fdefinition, dotted pairs, setf, map-into, alist, assoc, let, symbol-macrolet...

По моему решение вышло такое же лаконичное, как и на python'е, не?
(mapcar #'1+ '(1 2 3))

Да не обращай внимания!

Да я и не обращаю. Так, на всякий случай, решил показать результат обсуждения.