[funds-cvs] r182 - trunk/funds/src/trees

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