   (letfn [(run1 [raw-req]
             (as-map
              (.batchWriteItem (db-client client-opts)
-               ^BatchWriteItemRequest (batch-write-item-request return-cc? raw-req))))]
+               (batch-write-item-request return-cc? raw-req))))]
     (merge-more run1 span-reqs
       (run1
        (utils/name-map

         (throughput-steps [17 8] [3 22])
         (throughput-steps [1 1] [300 300]))

(defn update-table-request
  "Implementation detail"
  [table throughput]
  (doto (UpdateTableRequest.)
    (.setTableName (name table))

          (recur (merge-with merge-results last-result (more-f more))
                 (inc idx)))))))

(defn batch-get-item-request "Implementation detail."
  ^BatchGetItemRequest [return-cc? raw-req]
  (doto-cond [g (BatchGetItemRequest.)]
    :always    (.setRequestItems raw-req)
    return-cc? (.setReturnConsumedCapacity (utils/enum :total))))
