((/taspi/code/sequences/p-inform.lisp::parsimony-informative-helper (nil nil nil nil (if) nil nil) ((nil) nil (atom) (let*) nil nil nil) ((seqs) nil ((curr-state (nth-gen i (cdar seqs)))) nil (if) nil nil) (nil nil (seen) (and) (if) nil (recursive-call)) ((seen t i missingGapChars first-big-state) nil (not cdr) (het and) (hut) nil (recursive-call)) ((curr-state state-hash first-big-state i state-hash missingGapChars curr-state seqs curr-state t state-hash) nil (not cdr) (member-gen) nil nil nil) ((curr-state missingGapChars seqs) nil nil (equal) nil nil nil)) (/taspi/code/sequences/p-inform.lisp::parsimony-informative? (nil nil nil nil nil nil (parsimony-informative-helper)) ((seqs i missingGapChars nil) nil (quote) nil nil nil nil) ((parsimony-informative-hash) 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/code/sequences/p-inform.lisp::number-pis-helper (nil nil nil nil (if) nil nil) (nil nil (zp) nil (if if) nil nil) ((curPos curNum) nil nil (equal) (if parsimony-informative?) (recursive-call recursive-call) nil) ((curPos curNum curPos seqs missingGapChars seqs missingGapChars seqs curNum missingGapChars) (0) nil (+ - + -) (parsimony-informative?) nil nil) ((curPos seqs missingGapChars curNum curPos curNum curPos) (1 1 1 1) nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/taspi/code/sequences/p-inform.lisp::number-of-p-informative-sites (nil nil nil nil (if) nil nil) ((Error: Need valid sequences in number-of-p-informative-sites) nil (valid-sequences-same-length) nil (if) nil nil) ((seqs) (0) nil (and) nil (number-pis-helper) nil) ((seqs missingGapChars) (0) (consp consp) (-) nil nil nil) ((seqs) (1) (cdar len) nil nil nil nil) ((seqs) nil (cdar) nil nil nil nil) ((seqs) nil nil nil nil nil nil)))