do_seq_lazy_let.clj

(doseq [[printer {:keys [id sub-ids]}] {(partial println "sub1") {:id :A :sub-ids [11 12 13 14]}
                                        (partial println "sub2") {:id :B :sub-ids []}}
        sub-id sub-ids
        :let [sub-id-times-2 (do (println "binding occured") (* sub-id 2))]]
  (printer id sub-id))

;;; binding occured
;;; sub1 :A 11
;;; binding occured
;;; sub1 :A 12
;;; binding occured
;;; sub1 :A 13
;;; binding occured
;;; sub1 :A 14
;;; (nothing else was printed, no other binding occurred)