[funds-cvs] r194 - trunk/funds/src

Author: abaine Date: Mon Aug 20 12:33:28 2007 New Revision: 194 Modified: trunk/funds/src/queue.lisp Log: Documented queue-count and queue-count-if. Modified: trunk/funds/src/queue.lisp ============================================================================== --- trunk/funds/src/queue.lisp (original) +++ trunk/funds/src/queue.lisp Mon Aug 20 12:33:28 2007 @@ -70,12 +70,14 @@ #'< :key #'car))) (defun queue-count (item q &key (key #'identity) (test #'eql)) + "The number of elements in the given queue that satisfy the test." (tree-count item (queue-heap q) :key #'(lambda (tree) (funcall key (bt-value tree))) :test test)) (defun queue-count-if (predicate q &key (key #'identity)) + "The number of elements in the given queue that satisfy the test." (tree-count-if predicate (queue-heap q) :key #'(lambda (tree) (funcall key (bt-value tree)))))
participants (1)
-
abaine@common-lisp.net