self update map

gistfile1.lisp

(defun map-update (fun src &rest lists)
  (funcall
    (reduce (lambda (cont list-elms)
              (lambda ()
                (apply fun (funcall cont) list-elms) ))
            (apply #'mapcar #'list lists)
            :initial-value (constantly src) )))

(defun subst-all (to-list from-list src)
  (map-update
    (lambda (src from to) (subst to from src))
    src from-list to-list ))

(subst-all '(1 2 3) '(a b c) '(a b c d c b a))  ; => '(1 2 3 d 3 2 1)