((/taspi/code/tree-manip/mv-root.lisp::rooted-at-branch (nil nil nil (<) nil nil nil) (nil (3) (len) nil nil nil nil) ((x) 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/mv-root.lisp::node-to-node (nil nil nil nil (if) nil nil) ((x) nil (consp) nil (if) nil nil) ((x x) nil (consp) nil (if) nil nil) ((Error: x does not match tia in node-to-node) nil (car) (hons) nil (and) nil) ((x) nil (caar) (taspip taspip subset subset) (orderly-append) nil nil) ((nil nil x tia) nil (cdar list mytips get-taxa-from-taxon-index mytips get-taxa-from-taxon-index cdar list) nil nil nil nil) ((x tia tia x) nil (cdr cdar cdr cdr) nil nil nil nil)) (/taspi/code/tree-manip/mv-root.lisp::branch-to-node (nil nil nil nil (if) nil nil) ((x) nil (consp) nil (if) nil nil) ((x) nil (consp) nil (if if) nil nil) ((Error: Need x to match tia in branch-to-node x) nil (car consp) nil (orderly-append if) (and) nil) ((x tia Error: Need x to match tia in second branch of branch-to-node) nil (car cdr cdr) (taspip taspip subset subset) (and orderly-cons) nil nil) ((nil nil x x x tia) nil (car cdr mytips get-taxa-from-taxon-index mytips get-taxa-from-taxon-index car cadr) (taspip subset member-gen) nil nil nil) ((x x tia tia nil x x) nil (car cdr cadr mytips get-taxa-from-taxon-index first-taxon get-taxa-from-taxon-index) nil nil nil nil)) (/taspi/code/tree-manip/mv-root.lisp::num-moves (nil nil nil nil (if) nil nil) (nil (0) (consp 1+) nil nil nil nil) ((x) nil (recursive-call) nil nil nil nil) (nil nil (car) nil nil nil nil) ((x) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/code/tree-manip/mv-root.lisp::mv-root-helper (nil nil nil (let) nil nil nil) (((new (node-to-node x tia))) nil nil nil (if) nil nil) ((x) nil nil (equal recursive-call) nil nil nil) ((new x new tia) 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/mv-root.lisp::mv-root (nil nil nil nil (if) nil nil) (nil nil (rooted-at-branch) (mv-root-helper) (if) nil nil) ((x x x tia) nil (int-symlist) (mv-root-helper) nil nil nil) ((x tia) nil nil (branch-to-node) nil nil nil) ((x tia) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/code/tree-manip/mv-root.lisp::mv-root-list (nil nil nil nil (if) nil nil) ((ans) nil (consp) nil (recursive-call) nil nil) ((list tia) nil (cdr) (hons) nil nil nil) ((list ans) nil nil (mv-root) nil nil nil) ((tia) nil (car) nil nil nil nil) ((list) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))