Changeset 2584 for trunk/bknr/datastore/src/indices/category-index.lisp
- Timestamp:
- 02/21/08 07:41:43 (11 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/bknr/datastore/src/indices/category-index.lisp
r2529 r2584 121 121 (:default-initargs :test #'equal)) 122 122 123 (defmethod initialize-instance :after ((index category-index) &key (tree-test #'eql) &allow-other-keys)123 (defmethod initialize-instance :after ((index category-index) &key (tree-test #'eql)) 124 124 (with-slots (tree) index 125 125 (setf tree (make-category-tree :test tree-test))))
