(do ((start (local-time:encode-timestamp 0 0 0 0 1 1 2025) (local-time:timestamp+ start 1 :day))
(end (local-time:encode-timestamp 0 0 0 0 31 12 2025))
)
((local-time:timestamp= start end) 'done)
(format t "~A~%" (local-time:format-timestring nil start :format '(:year "-" :month "-" :day)))
)
