LINUX.ORG.RU

История изменений

Исправление monk, (текущая версия) :

(setf x '((a . 1) (b . 2)))

(let ((i (assoc 'a x))) ;; присвоили ссылку на пару
  (setf (cdr i) 3)) ;; поменяли

x => ((a . 3) (b . 2))

Исходная версия monk, :

(setf x '((a . 1) (b . 2)))

(let ((i (assoc 'a x))) ;; присволили ссылку на пару
  (setf (cdr i) 3)) ;; поменяли

x => ((a . 3) (b . 2))