((/coi/dtrees/set.lisp::two-path-induction (nil nil nil nil (if) nil nil) (nil nil (atom) (let) (list) nil nil) ((path other path dtree (children (children dtree))) nil nil nil (if) nil nil) (nil nil nil (map::in) (recursive-call recursive-call) nil nil) ((children *default*) nil (car cdr cdr cdr cdr) (map::get) nil nil nil) ((path other path children other path) nil (car) nil nil nil nil) ((path) nil nil nil nil nil nil)))