[rucksack-devel] btree-insert

[Takehiko Abe]

btree-insert compares value with btree-key-type .
Please examine.

regards,
T.


Index: p-btrees.lisp
===================================================================
RCS file: /project/rucksack/cvsroot/rucksack/p-btrees.lisp,v
retrieving revision 1.14
diff -u -r1.14 p-btrees.lisp
--- p-btrees.lisp	13 Mar 2007 13:13:00 -0000	1.14
+++ p-btrees.lisp	14 Mar 2007 08:36:20 -0000
@@ -548,7 +548,7 @@
            :btree btree
            :datum key
            :expected-type (btree-key-type btree)))
-  (unless (typep value (btree-key-type btree))
+  (unless (typep value (btree-value-type btree))
     (error 'btree-type-error
            :btree btree
            :datum value