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

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