(defmacro compile-a (&rest a)
  (flet ((fn (x) (loop for i from 1 to 10000000
                       do (setf x (mod (expt x 3) 7))
                       finally (return x))))
    `',(mapcar #'fn a)))
;; ^ Extremely sluggish macro.


(defun foo ()
  (compile-a 0 1 2))