     ([from to step] (cond->> (iterate #(.plusDays % step) from)
                       to (take-while #(< % to))))))
 
+(defn tomorrow []
+  (inc (today)))
+
+(defn yesterday []
+  (dec (today)))
+
 (extend-type LocalDateTime
   ITimeArithmetic
   (+ [t x] (.plus t x))


(extend-type YearMonth
  ITimeArithmetic
  (+ [t x] (if (number? x) (.plusMonths t x) (.plus t x)))
  (- [t x] (if (number? x) (.minusMonths t x) (.minus t x)))
  (inc [t] (.plusMonths t 1))
  (dec [t] (.minusMonths t 1))
  (maximum [x y] (if (neg? (compare x y)) y x))


(extend-type LocalDate
  ITimeArithmetic
  (+ [t x] (.plus t x))
  (- [t x] (.minus t x))
  (inc [t] (.plusDays t 1))
  (dec [t] (.minusDays t 1))
  (maximum [x y] (if (neg? (compare x y)) y x))
