Function: PUT-TRIE

Source

(defun put-trie (key trie value)
  (setf (trie-value (find-trie key t trie)) value))