Lines Matching defs:tree
865 (defun subst-if (cl-new cl-pred cl-tree &rest cl-keys)
870 (apply 'sublis (list (cons nil cl-new)) cl-tree :if cl-pred cl-keys))
872 (defun subst-if-not (cl-new cl-pred cl-tree &rest cl-keys)
877 (apply 'sublis (list (cons nil cl-new)) cl-tree :if-not cl-pred cl-keys))
879 (defun nsubst (cl-new cl-old cl-tree &rest cl-keys)
885 (apply 'nsublis (list (cons cl-old cl-new)) cl-tree cl-keys))
887 (defun nsubst-if (cl-new cl-pred cl-tree &rest cl-keys)
892 (apply 'nsublis (list (cons nil cl-new)) cl-tree :if cl-pred cl-keys))
894 (defun nsubst-if-not (cl-new cl-pred cl-tree &rest cl-keys)
899 (apply 'nsublis (list (cons nil cl-new)) cl-tree :if-not cl-pred cl-keys))
901 (defun sublis (cl-alist cl-tree &rest cl-keys)
907 (cl-sublis-rec cl-tree)))
910 (defun cl-sublis-rec (cl-tree) ; uses cl-alist/key/test*/if*
911 (let ((cl-temp (cl-check-key cl-tree)) (cl-p cl-alist))
915 (if (consp cl-tree)
916 (let ((cl-a (cl-sublis-rec (car cl-tree)))
917 (cl-d (cl-sublis-rec (cdr cl-tree))))
918 (if (and (eq cl-a (car cl-tree)) (eq cl-d (cdr cl-tree)))
919 cl-tree
921 cl-tree))))
923 (defun nsublis (cl-alist cl-tree &rest cl-keys)
929 (let ((cl-hold (list cl-tree)))
933 (defun cl-nsublis-rec (cl-tree) ; uses cl-alist/temp/p/key/test*/if*
934 (while (consp cl-tree)
935 (let ((cl-temp (cl-check-key (car cl-tree))) (cl-p cl-alist))
938 (if cl-p (setcar cl-tree (cdr (car cl-p)))
939 (if (consp (car cl-tree)) (cl-nsublis-rec (car cl-tree))))
940 (setq cl-temp (cl-check-key (cdr cl-tree)) cl-p cl-alist)
944 (progn (setcdr cl-tree (cdr (car cl-p))) (setq cl-tree nil))
945 (setq cl-tree (cdr cl-tree))))))
947 (defun tree-equal (cl-x cl-y &rest cl-keys)
953 (cl-tree-equal-rec cl-x cl-y)))
955 (defun cl-tree-equal-rec (cl-x cl-y)
957 (cl-tree-equal-rec (car cl-x) (car cl-y)))