bit-trie.lisp

ARITHMETIC-CODING> (defparameter foo (make-bit-trie :content 0))
FOO
ARITHMETIC-CODING> foo
#S(BIT-TRIE
   :CONTENT 0
   :CHILDREN #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
               NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
ARITHMETIC-CODING> (setf (at-bit-trie foo 83 62) "Hello")
NIL
ARITHMETIC-CODING> foo
#S(BIT-TRIE
   :CONTENT 0
   :CHILDREN #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
               NIL NIL NIL
               #S(BIT-TRIE
                  :CONTENT NIL
                  :CHILDREN #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
                              NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
                              NIL NIL NIL NIL NIL NIL NIL NIL))
               NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
ARITHMETIC-CODING>