anchor.diff:  (defun test-trie (&optional (lst *banana*))
     "Simple utility function to build a test trie."
     (let ((r (make-trie)))
  -    (add-seqs r (mapcar #'(lambda (s) (string-downcase (string s))) lst))
  +    (trie-add-seqs r (mapcar #'(lambda (s) (string-downcase (string s))) lst))
       r))
   
   
  
positive.code:       (unless (leafp branch)
          (format stream "~%") ; (write-char #\Newline)
          (bprint-trie branch stream (+ 1 depth) compact))
        (write-char #\u29 #|Right Paren|# ))))
  
  
  
  
negative.code: ;;;   More information about tries:
  ;;;   http://en.wikipedia.org/wiki/Trie
  ;;;
  
  (in-package #:twist)
  
  (setq *print-pretty* t)
  (setq *print-circle* t)
  