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

[abaine at common-lisp.net]

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)))))