Method: (EMPTY-P T)

Source

(defmethod empty-p (tree)
  (not (tree-root tree)))