what about:
((afn (m-tree) (when (in-sight m-tree) (map (afn (node) (self node) (self node)) m-tree!children))) m-tree)