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

Author: abaine Date: Fri Aug 10 18:32:46 2007 New Revision: 132

Modified: trunk/funds/src/f-array.lisp Log: Fixed f-array-size.

Modified: trunk/funds/src/f-array.lisp ============================================================================== --- trunk/funds/src/f-array.lisp (original) +++ trunk/funds/src/f-array.lisp Fri Aug 10 18:32:46 2007 @@ -25,5 +25,5 @@ (labels ((f (tree amount) (if (tree-empty-p tree) amount - (f (bt-right tree) (bt-key tree))))) + (f (bt-right tree) (1+ (bt-key tree)))))) (f array 0)))