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

[abaine at common-lisp.net]

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