|
|
@@ -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)
|