在Common Lisp和Scheme中，大部分特殊语法都是通过宏来实现的。例如，Scheme和CL都有if、cond和case，但只有if是原始语法。
标准定义的宏和自己制作的宏没有什么特别之处。它们可以像原语一样良好地运行和表现。
使用宏的代价是会让读者感到难以理解和惊讶。使用常见的命名约定，如with-*，可能会有所帮助，但是如果一个函数/过程可以完成工作或者表单只会在少数地方使用，就不应该使用宏。
defun, defgeneric, defclass（标准库），deftable（postmodern）。Unwind-protect包装器：暂时修改状态，并确保在任务完成后将其修改回来。这样重复编写很麻烦，因此我们创建了一个简写。例如：with-open-file（标准库），with-transaction（许多数据库库）。具体例子：Java 7引入了一种简写方式，以确保在try块中关闭Closable：
try (SomeClosable foo = openFoo()) {
foo.doSomething();
}
SomeClosable foo;
try {
foo = openFoo();
foo.doSomething();
} finally {
if (foo != null && foo.isOpen()) {
foo.close();
}
}
Java开发者需要等待语言设计师实现此功能。而Lisp开发者则使用一个小的宏：
(defmacro with-open-foo ((var &rest options) &body body)
`(let ((,var (open-foo ,@options)))
(unwind-protect
(progn ,@body)
(when ,var (close ,var)))))
这样他就可以写作了
(with-open-foo (f :bar baz)
(do-some-foo f)
(and-something-else))
替代
(let ((f (open-foo :bar baz)))
(unwind-protect
(progn
(do-some-foo f)
(and-something-else))
(when f (close f))))
defun 将 with-open-foo 写成一个函数呢？ - Electric Coffee