((/taspi/examples/examples.lisp::consensus-from-newick-file-no-brlens (nil nil nil (let) nil nil nil) (((trees (strip-cars (newick-read-file file-name)))) nil nil nil (compute-consensus) nil nil) ((trees percentage) nil (mytips) nil nil nil nil) (nil nil (car) nil nil nil nil) ((trees) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/examples/examples.lisp::consensus-from-to-newick-file-no-brlens (nil nil nil (let) nil nil nil) (((trees (strip-cars (newick-read-file infile)))) nil nil (with-open-file) nil nil nil) (nil nil nil (print-newick) nil nil (str)) ((outfile :direction :output :if-exists :supersede str) nil nil nil (compute-consensus) nil nil) ((trees percentage) nil (mytips) nil nil nil nil) (nil nil (car) nil nil nil nil) ((trees) nil nil nil nil nil nil)))