((/taspi/tree-generation/heuristics/do-search.lisp::add-no-dups (nil nil nil nil (if) nil nil) ((hash) nil (consp) nil (if) nil nil) ((list) nil nil (het recursive-call recursive-call) nil nil nil) ((hash hash) nil (car cdr cdr) nil (hut) nil nil) ((list list list t hash) nil (car) nil nil nil nil) ((list) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/tree-generation/heuristics/do-search.lisp::get-unique-spr-neighbors (nil nil nil nil (if) nil nil) (nil nil (consp strip-cars-gen) nil (recursive-call) nil nil) ((curTrees tia hash) nil (cdr) (add-no-dups) nil nil nil) ((curTrees hash) nil nil (orderly-spr) nil nil nil) ((tia) nil (car) nil nil nil nil) ((curTrees) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/tree-generation/heuristics/do-search.lisp::get-all-spr-neighbors (nil nil nil nil (if) nil nil) ((ans) nil (consp) nil (recursive-call) nil nil) ((curTrees tia) nil (cdr) (app-gen) nil nil nil) ((curTrees ans) nil nil (orderly-spr) nil nil nil) ((tia) nil (car) nil nil nil nil) ((curTrees) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/tree-generation/heuristics/do-search.lisp::do-spr-search-iteration (nil nil nil (let) nil nil nil) (((tia (make-tia (strip-cars-gen seqs)))) nil nil nil (if) nil nil) (nil nil (good-taxon-index-halist) (let mv) nil nil nil) ((tia (allNeighbors (get-unique-spr-neighbors curTrees nil tia)) Error: Need good tia in do-spr-search-iteration) nil (quote) nil nil nil nil) ((allNeighbors curScore nil seqs cssl-map matrix Error) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/tree-generation/heuristics/do-search.lisp::do-search-with-spr (nil nil nil nil (if) nil nil) (nil nil (zp) nil (mv mv-let) nil nil) ((num-rearrangements curScore curTrees num-rearrangements) nil (newScore) nil (if) nil (do-spr-search-iteration)) ((newTrees seqs curTrees curScore cssl-map matrix) nil nil (perm) (mv if) nil nil) ((newTrees curTrees curScore curTrees num-rearrangements) nil (rationalp) nil (mv) nil nil) ((newScore seqs newTrees newScore cssl-map matrix Error: Need rational newScore in 
                           do-search-with-spr) nil (1- quote quote) nil nil nil nil) ((num-rearrangements Error Error) nil nil nil nil nil nil)) (/taspi/tree-generation/heuristics/do-search.lisp::spr-search (nil nil nil (let) nil nil nil) (((taxa-List (get-taxa-from-sequences seqs))) nil nil nil (if) nil nil) (nil nil nil (<= let) (if) nil nil) (((tree (build-unrooted-binary-tree taxa-List))) (3) (len) nil (if tree-matches-sequences mv mv) nil nil) ((taxa-list t taxa-list seqs taxa-list num-rearrangements Error: Need tree to match seqs in spr-search) nil (quote quote) (let) (tree-matches-sequences mv) (pscore-tree) nil) ((t tree seqs (score (pscore-tree tree seqs cssl-map matrix)) Error: Need tree to match seqs in spr-search taxa-list seqs cssl-map matrix Error Error) nil (quote quote) nil (if) nil nil) ((Error Error) nil (rationalp) nil (mv) nil nil)) (/taspi/tree-generation/heuristics/do-search.lisp::get-unique-tbr-neighbors (nil nil nil nil (if) nil nil) (nil nil (consp strip-cars-gen) nil (recursive-call) nil nil) ((curTrees tia hash) nil (cdr) (add-no-dups) nil nil nil) ((curTrees hash) nil nil (phylo-tbr) nil nil nil) ((tia) nil (car) nil nil nil nil) ((curTrees) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/tree-generation/heuristics/do-search.lisp::do-tbr-search-iteration (nil nil nil (let) nil nil nil) (((tia (make-tia (strip-cars-gen seqs)))) nil nil nil (if) nil nil) (nil nil (good-taxon-index-halist) (let mv) nil nil nil) ((tia (allNeighbors (get-unique-tbr-neighbors curTrees nil tia)) Error: Need good tia in do-spr-search-iteration) nil (quote) nil nil nil nil) ((allNeighbors curScore nil seqs cssl-map matrix Error) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/tree-generation/heuristics/do-search.lisp::do-search-with-tbr (nil nil nil nil (if) nil nil) (nil nil (zp) nil (mv mv-let) nil nil) ((num-rearrangements curScore curTrees num-rearrangements) nil (newScore) nil (if) nil (do-tbr-search-iteration)) ((newTrees seqs curTrees curScore cssl-map matrix) nil nil (perm) (mv if) nil nil) ((newTrees curTrees curScore curTrees num-rearrangements) nil (rationalp) nil (mv) nil nil) ((newScore seqs newTrees newScore cssl-map matrix Error: Need rational newScore in 
                           do-search-with-spr) nil (1- quote quote) nil nil nil nil) ((num-rearrangements Error Error) nil nil nil nil nil nil)) (/taspi/tree-generation/heuristics/do-search.lisp::tbr-search (nil nil nil (let) nil nil nil) (((taxa-List (get-taxa-from-sequences seqs))) nil nil nil (if) nil nil) (nil nil nil (<= let) (if) nil nil) (((tree (build-unrooted-binary-tree taxa-List))) (3) (len) nil (if tree-matches-sequences mv mv) nil nil) ((taxa-list t taxa-list seqs taxa-list num-rearrangements Error: Need tree to match seqs in tbr-search) nil (quote quote) (let) (tree-matches-sequences mv) (pscore-tree) nil) ((t tree seqs (score (pscore-tree tree seqs cssl-map matrix)) Error: Need tree to match seqs in tbr-search taxa-list seqs cssl-map matrix Error Error) nil (quote quote) nil (if) nil nil) ((Error Error) nil (rationalp) nil (mv) nil nil)))