Function: GET-TRIE

Source

(defun get-trie (key trie)
  (let* ((key-trie (find-trie key nil trie))
	 (val (if key-trie (trie-value key-trie))))
    (if (or (null key-trie)
	    (eq val trie-deleted))
	(values nil nil)
	(values val t))))
Source Context