((/taspi/sets-input/greedy.lisp::rational-val-alistp-gen (nil nil nil nil (if) nil nil) ((t) nil (consp) nil (and) nil nil) ((list) nil (consp rationalp recursive-call) nil nil nil nil) (nil nil (car cdar cdr) nil nil nil nil) ((list list list) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/sets-input/greedy.lisp::sort-by-frequency-merge (nil nil nil nil nil (cond) nil) (nil nil ((atom l1) (atom l2) (and (rational-val-alistp-gen l1) (rational-val-alistp-gen l2)) t) nil nil nil nil) ((l2 l1) nil (quote) nil (if) nil nil) ((bad-input-to-sort-by-frequency-merge) nil nil (>= cons cons) nil nil nil) (nil nil (cdar cdar car car) (recursive-call recursive-call) nil nil nil) ((l1 l2 l1 l2 l2 l1) nil (cdr cdr) nil nil nil nil) ((l1 l2) nil nil nil nil nil nil)) (/taspi/sets-input/greedy.lisp::sort-by-frequency (nil nil nil nil (if) nil nil) (nil nil (rational-val-alistp-gen quote) nil (if) nil nil) ((alist alist bad-input-to-sort-by-frequency) nil nil (and sort-by-frequency-merge) nil nil nil) (nil nil (consp consp recursive-call recursive-call) nil nil nil nil) ((alist) nil (cdr evens-gen odds-gen) nil nil nil nil) ((alist alist alist) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/sets-input/greedy.lisp::get-compatible-set (nil nil nil nil (if) nil nil) ((ans) nil (consp) nil (if) nil nil) ((list) nil (q-no-conflicts-list-gen) (recursive-call recursive-call) nil nil nil) ((ans) nil (cdr cdr) (cons cons) nil nil nil) ((ans list ans list) nil (car car) nil nil nil nil) ((list list) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/sets-input/greedy.lisp::greedy (nil nil nil nil (if) nil nil) (nil nil (quote) (let*) nil (and) nil) ((bad-input-to-greedy) nil (non-tip-tree-listp int-symlist all-same-num-tips (bfringe-freqs (bfringe-frequencies list-of-trees taxa-list))) (<=) (if) nil nil) ((list-of-trees taxa-list list-of-trees) (2) (len fringe-freq-sorted-by-popularity alistp-gen quote) (let*) nil nil nil) ((taxa-list fringe-freq-sorted-by-popularity bad-fringe-freq-sorted-in-greedy) nil (sort-by-frequency (fringes-sorted-by-popularity (strip-cars-gen fringe-freq-sorted-by-popularity))) (build-term-top-guard-t) nil nil nil) ((bfringe-freqs greedy-fringes taxa-list) nil (greedy-fringes) nil nil nil nil) (nil nil nil (get-compatible-set) nil nil nil)) (/taspi/sets-input/greedy.lisp::greedy-brlens (nil nil nil (let) nil nil nil) (((trees-no-brlens (remove-brlens-list list-of-trees))) nil nil (greedy) nil nil nil) ((trees-no-brlens taxa-list) 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)))