Common Lisp 宏

1）简单的宏

CL-USER> (defmacro print-test (x y)
       `(format t "~A ~A~%" ,x ,y))
PRINT-TEST
CL-USER> (print-test 'hello 'world)
HELLO WORLD
NIL

2）

3）