M-99 Q1

LISPど素人が挑むM-99

M-99 マクロ99問
http://common-lisp-users.jp/index.cgi?M-99

問１：与えられた引数を全てQUOTEしてリストとして返すLISTQを作成せよ

解：

(defmacro listq (&rest body)
        `',body)

CL-USER> (defmacro listq (&rest body)
                  `',body)
LISTQ
CL-USER> (listq a b c d)
(A B C D)

REPLって便利だなーっと改めて認識。
あってるのか不安。。。