src/adventofcode2020.lisp

   1 (in-package #:adventofcode2020)
   2
   3 (defmacro day (num var &body body)
   4   (let ((day-str (format nil "day~2,'0D" num)))
   5     `(let ((,var (alexandria:read-file-into-string ,(format nil "./res/~A" day-str))))
   6        ,@body)))
   7
   8 (defun part1 (str)
   9   (time (format t "Part 1: ~A~%" str)))
  10
  11 (defun part2 (str)
  12   (time (format t "Part 2: ~A~%" str)))
  13