Function: cl--do-subst

cl--do-subst is a byte-compiled function defined in cl-lib.el.gz.

Signature

(cl--do-subst NEW OLD TREE)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-lib.el.gz
(defun cl--do-subst (new old tree)
  (cond ((eq tree old) new)
        ((consp tree)
         (let ((a (cl--do-subst new old (car tree)))
               (d (cl--do-subst new old (cdr tree))))
           (if (and (eq a (car tree)) (eq d (cdr tree)))
               tree (cons a d))))
        (t tree)))