Project Euler Problem 48 Common Lisp

Project Euler Problem 48

(defun problem48 ()
  (nth-value 1 (truncate (loop for i from 1 to 1000
                               sum (expt i i))
                         (expt 10 10))))