Method: (DELETE-TREE T T)

Source

(defmethod delete-tree (tree key)
  (when (and tree (not (empty-p tree)))
    (with-comparator (comparator tree)
      (setf (tree-root tree)
	    (delete-from-node (tree-root tree) key tree)))
    tree))