Plaster

CL-USER> (defmacro foo (&rest slots) `(list ,@(mapcar (lambda (x) `',x) slots))) FOO CL-USER> (foo a b c) (A B C) CL-USER> (macroexpand '(foo a b c)) (LIST 'A 'B 'C)