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

[abaine at common-lisp.net]

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