/[rjain-utils]/tables/rb-tree-classes.lisp
ViewVC logotype

Contents of /tables/rb-tree-classes.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 (deftype color () '(member :red :black))
3
4 (defstruct (rb-node
5 (:conc-name #:%rb-node)
6 (:constructor make-rb-node (key value)))
7 (left nil :type '(or null rb-node))
8 (parent nil :type '(or null rb-node))
9 (key nil)
10 (value nil)
11 (color :black :type 'color)
12 (right nil :type '(or null rb-node)))
13
14 (defclass rb-tree-table (ordered-table)
15 (root :initform nil))

  ViewVC Help
Powered by ViewVC 1.1.5