(sum (range 1 365))

assuming you defined these already; I have them in my utils library ;-)

  (defun range (start end)
    (loop for x from start to end collecting x))

  (defun sum (sequence)
    (reduce #'+ sequence))