Method: (SEARCH-TREE T T)

Source

(defmethod search-tree (tree key)
  (when tree
    (with-comparator (comparator tree)
      (search-node (tree-root tree) key))))