(defun nsubst (new old sexp) (cond ((atom sexp) sexp) ((equal old (car sexp)) (rplaca sexp new) (nsubst new old (cdr sexp)) sexp) (t (nsubst new old (car sexp)) (nsubst new old (cdr sexp)) sexp)))