Function: cl--do-subst

(fn CL-NEW CL-OLD CL-TREE)