[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."