(DEFMACRO ASKIT (A)
  `(PROGN (PRINT 'OK) (PRINT (EVAL ,A))))

(DEFUN FOO ()
  (LET ((A 1)
        (B 2)
        (C 3)
        (D 4)
        (L '(A B C D)))
    (SPECIAL A B C D)
    (print a)
    (LOOP FOR ELT IN L DO (ASKIT ELT))))