/[rjain-utils]/tables/b+-tree-methods.lisp
ViewVC logotype

Contents of /tables/b+-tree-methods.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (vendor branch)
Sun Mar 28 17:21:12 2004 UTC (10 years ago) by rjain
Branch: MAIN, rjain
CVS Tags: start, HEAD
Changes since 1.1: +0 -0 lines
Initial import
1
2 (defmethod initialize-instance :after ((self b+-tree-table) &key)
3 (setf (slot-value self 'root)
4 (make-array (slot-value self 'node-size)
5 :fill-pointer 0)))
6
7 (defun b+-tree-find-node (root key)
8 (declare (type simple-vector root))
9 )
10
11 (defmethod (setf table-find) (new-value (table b+-tree-table) key)
12 )
13
14 (defmethod table-find ((table b+-tree-table) key)
15 )
16
17 (defmethod table-remove ((table b+-tree-table) key)
18 )

  ViewVC Help
Powered by ViewVC 1.1.5