CL-USER> (defmacro prints (&rest things) `(loop for thing in ',things do (print thing)))
PRINTS

CL-USER> (prints 1 2 3 (+ 2 2))
1 
2 
3 
(+ 2 2)
NIL