> (setq a '(1 2 3 4)) (1 2 3 4) > (defun nth-replace (nth data sexp) (rplaca (nthcdr nth sexp) data) sexp) NTH-REPLACE > (nth-replace 0 'a a) (A 2 3 4) > a (A 2 3 4) >