   (^:export perform-action-for-row-at-index-path-with-sender [this sel section row sender]))
 
 (defprotocol TableViewDataSource
+  "Defines a protocol consistent with `UITableViewDataSource`."
 
   (^:export TableViewDataSource-implements [this])
 

  (^:export move-row-at-index-path [this source-section source-row destination-section destination-row]))

(defprotocol FetchedResultsControllerDelegate

  (^:export FetchedResultsControllerDelegate-implements [this])


  (^:export did-change-content [this])
  (^:export section-index-title-for-section-name [this section-name]))

(defn user-interface-idiom-ipad?
  "Returns true iff the interface idiom is iPad."
  []
  (= "iPad" (:user-interface-idiom @env)))

(defn reify-fetched-results-controller-delegate
  "Provides a refication of `FetchedResultsControllerDelegate` that maniuplates a table-view."
  [table-view]
  (reify FetchedResultsControllerDelegate

    (did-change-object-at-index-path-for-change-type-new-index-path
