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

Author: abaine Date: Mon Aug 20 13:56:51 2007 New Revision: 202

Modified: trunk/funds/src/queue.lisp Log: Superficial.

Modified: trunk/funds/src/queue.lisp ============================================================================== --- trunk/funds/src/queue.lisp (original) +++ trunk/funds/src/queue.lisp Mon Aug 20 13:56:51 2007 @@ -67,7 +67,7 @@ "The elements in the given queue, returned as a list, in the order they would be dequeued from the given queue." (mapcar #'cdr (sort (tree-as-alist (queue-heap q)) - #'< :key #'car))) + #'< :key #'car)))

(defun queue-count (item q &key (key #'identity) (test #'eql)) "The number of elements in the given queue that satisfy the test."