((/taspi/code/tree-manip/merge-based-sort.lisp::merge-sort-of-ordered-alists (nil nil nil nil (if) nil nil) ((y) nil (atom) nil (if) nil nil) ((x x) nil (atom) (let*) nil nil nil) ((y) nil nil nil ((pair-x (car x)) if) nil nil) (nil nil (key-x pair-y key-y) (< hons hons) nil nil nil) ((pair-x pair-y) nil (car car car cdr cdr) nil (recursive-call recursive-call) nil nil) ((pair-x y pair-y y taxon-index-alist x taxon-index-alist) nil (cdr cdr) (het het) nil nil nil)) (/taspi/code/tree-manip/merge-based-sort.lisp::sort-the-alist-by-merge (nil nil nil nil (if) nil nil) ((alst) nil (atom) nil (if) nil nil) ((alst alst) nil (atom) (let) nil nil nil) (nil nil (cdr (evens-list (evens-gen alst))) nil (merge-sort-of-ordered-alists) nil nil) ((alst taxon-index-alist) nil (odds-list) (recursive-call recursive-call) nil nil nil) ((evens-list taxon-index-alist odds-list taxon-index-alist) nil (odds-gen) nil nil nil nil) ((alst) nil nil nil nil nil nil)) (/taspi/code/tree-manip/merge-based-sort.lisp::cluster-sort-by-merge (nil nil nil nil (if) nil nil) ((x) nil (atom) nil (if) nil nil) ((x flg) nil nil (let* hons) nil nil nil) (nil nil ((list-of-sorted-elements (cluster-sort-by-merge nil x taxon-index-alist)) strip-cdrs-gen) nil (recursive-call recursive-call) nil nil) ((t taxon-index-alist nil taxon-index-alist) nil (least-key-value-elements car cdr) (sort-the-alist-by-merge) nil nil nil) ((least-key-value-elements taxon-index-alist x x) nil (pair-key-with-value) nil nil nil nil) ((list-of-sorted-elements) nil nil nil nil nil nil)) (/taspi/code/tree-manip/merge-based-sort.lisp::order-by-merge-help (nil nil nil nil (cluster-sort-by-merge) nil nil) ((flg x taxon-index-alist) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/code/tree-manip/merge-based-sort.lisp::order-by-merge (nil nil nil nil (order-by-merge-help) nil nil) ((t x taxon-index-alist) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/code/tree-manip/merge-based-sort.lisp::order-by-merge-one-level (nil nil nil (let) nil nil nil) (((least-key-value-elements (pair-key-with-value x))) nil (strip-cdrs-gen) nil nil nil nil) (nil nil nil (sort-the-alist-by-merge) nil nil nil) ((least-key-value-elements taxon-index-alist) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/code/tree-manip/merge-based-sort.lisp::order-each-by-merge (nil nil nil nil (if) nil nil) ((nil) nil (atom) (cons) nil nil nil) ((input-trees) nil nil (order-by-merge recursive-call) nil nil nil) ((taxon-index-alist taxon-index-alist) nil (car cdr) nil nil nil nil) ((input-trees input-trees) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))