Method: (INSERT-TREE T T T)

Source

(defmethod insert-tree (tree key value)
  (when tree
    (with-comparator (comparator tree)
      (setf (tree-root tree)
	    (if (empty-p tree)
		(create-node tree :key key :value value)
		(node-insert (tree-root tree) key value tree)))
      tree)))