((/taspi/single-input/tree-stats.lisp::max-len-lists (nil nil nil nil (if) nil nil) ((curMax) nil (consp) nil (if) nil nil) ((x flg) nil nil nil (recursive-call recursive-call) nil nil) ((nil x nil) nil (cdr) (max) (recursive-call) nil nil) ((curMax x t) nil (len car) (max) nil nil nil) ((x x curMax) nil (len) nil nil nil nil) (nil nil (car) nil nil nil nil)) (/taspi/single-input/tree-stats.lisp::degree-of-tree (nil nil nil nil (if) nil nil) ((rooted-flg) nil nil nil (max-len-lists max-len-lists) nil nil) ((t x nil x) (0) (1-) nil nil nil nil) (nil nil (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)) (/taspi/single-input/tree-stats.lisp::num-internal-help (nil nil nil nil (if) nil nil) ((acc) nil (consp) nil (if) nil nil) ((x flg) nil nil nil (recursive-call recursive-call) nil nil) ((nil x nil) nil (1+ cdr) nil (recursive-call) nil nil) ((acc x t acc) nil (car) nil nil nil nil) ((x) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/single-input/tree-stats.lisp::number-of-internal-nodes (nil nil nil nil (num-internal-help) nil nil) ((t x) (0) 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/single-input/tree-stats.lisp::number-of-internal-nodes-brlens (nil nil (number-of-internal-nodes) nil nil nil nil) (nil nil (remove-brlens) 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/single-input/tree-stats.lisp::diameter-no-brlens (nil nil nil (let*) nil nil nil) (nil nil ((tree-no-brlens (remove-brlens tree))) nil (find-max-pair-dist) nil nil) ((taxa tree-no-brlens) (0) (taxa) nil nil nil nil) (nil nil (mytips) nil nil nil nil) ((tree-no-brlens) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/single-input/tree-stats.lisp::diameter-brlens (nil nil nil nil (find-max-pair-dist-brlens) nil nil) ((tree) (0) (mytips-brlens) nil nil nil nil) ((tree) 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/single-input/tree-stats.lisp::tree-depth-brlens (nil nil (tree-depth) nil nil nil nil) (nil nil (remove-brlens) 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)))