Еще lazy-cat есть

у вас кложа руссифицирована, не понимай русский говорит

(lazy-seq (concat (get-items) (lazy-seq (get-items))))

а почему ты просто не напишешь (doc concat), там первая строчка "Returns a lazy seq...".
Я без подколов, просто интересно, может, сам чего-то не понимаю)

(lazy-seq (concat (get-items) (lazy-seq (get-items))))

(repeat (get-items))

но надо еще с выходом

(mapcat (fn [_] (get-items)) (range))

по какому условию?

в ответе получаю мап с ключами items и has-more

соотв. если has-more, то еще подтянуть

если уж совсем точно

(list-objects [this bucket]
    (s3/list-objects creds bucket))


  (iter-objects [this bucket]
    (lazy-seq
     (let [result (list-objects this bucket)
           {:keys [object-summaries
                   truncated?]} result]
       (if truncated?
         object-summaries
         (concat object-summaries
                 (s3/list-next-batch-of-objects creds result))))))

а на выходе что должно выдаваться из ленивой коллекции?

ну, айтемы, пока выполняется погинация

ну сделай take-while результата на непустоту

да вроде норм, надо только врапнуть последнюю форму в lazy-seq

или так

(if truncated?
         object-summaries
         (lazy-cat object-summaries
                   (s3/list-next-batch-of-objects creds result)))

вот «почти», последний элемент пропадает

(defn get-items
  []
  {:items [1 2 3]
   :has-more (rand-nth [true true true false])})

(->> (repeatedly get-items)
     (take-while :has-more)
     (mapcat :items))

в смысле что пропадает?

ну, результат с :has-more false отбрасывается
но его же тоже нужно забрать

а, да

вот такое нужно https://clojure.atlassian.net/browse/CLJ-1451