anchor.diff:    "Traverse tries printing out nodes"
     (when indent (format t "~&~v@T" (* depth indent)))
     (format t "(~S ~d" (trie-key trie) (trie-width trie))
  -  (when (branchesp trie)
  +  (unless (leafp trie)
       (loop as branch in (trie-branches trie) do
         (print-trie branch (+ 1 depth) indent)))
     (format t ")"))
  
positive.code:     :add-seq :add-seqs
      :find-key :find-seq
      
      ; Printing
      :pprint-trie :print-words
      
      ; Extras
      :trie-prob :test-trie)
    (:use :cl))
  
  (in-package :ptrie)
  
negative.code: (defpackage :ptrie
    (:export
      ; Predicates
      :leafp :only-terminal-p :wordp
      
      ; Init and slots
      :make-trie :trie-key :trie-width :trie-branches
  