((/taspi/code/replete/replete-guards.lisp::replete-trees-ind (nil nil nil nil (if) nil nil) ((db) nil (atom) nil (if) nil nil) ((args) nil (atom) (let) nil (recursive-call) nil) ((parent db parents (p (het (car args) db))) nil (car cdr) nil (if) nil nil) ((args args p) nil nil (prog2$) nil (recursive-call) nil) ((parent parents) nil (cdr) nil (hut) (recursive-call recursive-call) nil) ((args db parent parents db) nil (car cdr car car) (cons cons) (hut) nil nil)) (/taspi/code/replete/replete-guards.lisp::replete-trees-list-brlens (nil nil nil (let) nil nil nil) (((removed (remove-brlens-list l))) nil nil nil (if) nil nil) (nil nil (replete-trees-list-top quote) (non-subtree-listp) nil nil nil) ((removed removed removed invalid-input-to-replete) 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)))