Author: abaine Date: Sun Aug 19 21:41:18 2007 New Revision: 182 Modified: trunk/funds/src/trees/utilities.lisp Log: Documented map-tree. Modified: trunk/funds/src/trees/utilities.lisp ============================================================================== --- trunk/funds/src/trees/utilities.lisp (original) +++ trunk/funds/src/trees/utilities.lisp Sun Aug 19 21:41:18 2007 @@ -18,6 +18,8 @@ (tree-count-if predicate (bt-right tree) :key key)))) (defun map-tree (function tree) + "A tree each node of which corresponds to the application of +function to one node of the given tree." (if (tree-empty-p tree) tree (stitch-tree tree