((/taspi/code/tree-manip/sort-help.lisp::pair-key-with-value (nil nil nil nil (if) nil nil) ((nil) nil (atom) (cons) nil nil nil) ((lst) nil (recursive-call) (hons) nil nil nil) (nil nil (first-taxon car cdr) nil nil nil nil) ((lst lst) nil (car) nil nil nil nil) ((lst) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/code/tree-manip/sort-help.lisp::ordered-list (nil nil nil nil (if) nil nil) ((t) nil (consp) nil (if) nil nil) ((list t) nil (consp) (and) nil nil nil) (nil nil (cdr) (<= recursive-call) nil nil nil) ((list order) nil (cdr cdr cdr) nil nil nil nil) ((list) nil nil (assoc-hqual assoc-hqual) nil nil nil) ((order order) nil (car cadr) nil nil nil nil)) (/taspi/code/tree-manip/sort-help.lisp::get-firsts (nil nil nil nil (if) nil nil) ((x) nil (consp) (cons) nil nil nil) ((x) nil (first-taxon recursive-call) nil nil nil nil) (nil nil (car cdr) nil nil nil nil) ((x 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/sort-help.lisp::orderedp (nil nil nil nil (if) nil nil) ((t) nil (consp) nil (if) nil nil) ((x flg) nil nil (and and) nil nil nil) (nil nil nil (ordered-list) (recursive-call recursive-call recursive-call) nil nil) ((order nil x order t order nil order) nil (get-firsts car cdr) nil nil nil nil) ((x x x) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/code/tree-manip/sort-help.lisp::valid-pairing (nil nil nil nil (if) nil nil) ((t) nil (consp) (and) nil nil nil) ((alst) nil (recursive-call) (equal) nil nil nil) (nil nil (caar first-taxon cdr) nil nil nil nil) ((alst alst) nil (cdar) nil nil nil nil) ((alst) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))