Project Euler Problem 2 Common Lisp

Project Euler Problem 2

(defun problem2 ()
  (loop for (a b) = '(0 1) then `(,b ,(+ a b))
        while (<= a 4000000)
        when (evenp a)
          sum a))