Function: cl--sublis

cl--sublis is a byte-compiled function defined in cl-macs.el.gz.

Signature

(cl--sublis ALIST TREE)

Documentation

Perform substitutions indicated by ALIST in TREE (non-destructively).

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-macs.el.gz
(defun cl--sublis (alist tree)
  "Perform substitutions indicated by ALIST in TREE (non-destructively)."
  (let ((x (assq tree alist)))
    (cond
     (x (cdr x))
     ((consp tree)
      (cons (cl--sublis alist (car tree)) (cl--sublis alist (cdr tree))))
     (t tree))))