(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 colle

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