Project Euler Problem 6 Common Lisp

Project Euler Problem 6

(defun problem6 ()
  (loop for i from 1 to 100
        sum i into sqr-sums
        sum (* i i) into sum-sqrs
        finally (return (- (expt sqr-sums 2) sum-sqrs))))