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

[abaine at common-lisp.net]

Author: abaine
Date: Mon Aug 20 11:56:45 2007
New Revision: 192

Modified:
   trunk/funds/src/queue.lisp
Log:
Fixed enqueue naming.

Modified: trunk/funds/src/queue.lisp
==============================================================================
--- trunk/funds/src/queue.lisp	(original)
+++ trunk/funds/src/queue.lisp	Mon Aug 20 11:56:45 2007
@@ -63,6 +63,6 @@
 (defun queue-from-list (list)
   "A queue whose elements are in the same order as the given list."
   (reduce #'(lambda (q n)
-	      (queue-enqueue q n))
+	      (enqueue q n))
 	  list 
 	  :initial-value (make-queue)))