@@ -26,7 +26,7 @@
(poller-call :aoc ""))
(defun get-advent-days-active ()
- (- 25 (ceiling (/ (- +advent-time+ (get-universal-time)) 86400))))
+ (max 0 (min 25 (- 25 (ceiling (/ (- +advent-time+ (get-universal-time)) 86400))))))
(defun format-stars(completions)
(format nil "~{~a~^ ~}" (loop for daynum from 1 to (get-advent-days-active)