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

[abaine at common-lisp.net]

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