Author: abaine Date: Mon Aug 20 13:09:57 2007 New Revision: 199
Modified: trunk/funds/src/f-array.lisp Log: Documented f-array functions.
Modified: trunk/funds/src/f-array.lisp ============================================================================== --- trunk/funds/src/f-array.lisp (original) +++ trunk/funds/src/f-array.lisp Mon Aug 20 13:09:57 2007 @@ -34,17 +34,21 @@ (f array 0)))
(defun f-array-count (item f-array &key (key #'identity) (test #'eql)) + "The number of elements in the given f-array that satisfy the test." (tree-count item f-array :key #'(lambda (tree) (funcall key (bt-value tree))) :test test))
(defun f-array-count-if (pred f-array &key (key #'identity)) + "The number of elements in the given f-array that satisfy the test." (tree-count-if pred f-array :key #'(lambda (tree) (funcall key (bt-value tree)))))
(defun map-f-array (function f-array) + "A new f-array whose elements are the results of the application +of the given function to the elements of the given f-array." (map-tree #'(lambda (tree) (funcall function (bt-value tree))) f-array))