如何编写（简单）宏？

Question

我需要为我写的游戏写一个宏(with-hooks (monster method who what) &body body)。怪物是一个CLOS对象，方法和谁是字符串，什么是函数（＃'符号）。该宏扩展将是东西的

(add-hook monster method who what) 
,@body 
(remove-hook monster method who) 

效果我绝对不知道如何编写这样一个宏，我将不胜感激一些帮助。 我有令人毛骨悚然的感觉，这很容易，我有点无知。

Answer 1

我会写这样的：

(defmacro with-hooks ((monster method who what) &body body) 
    (let ((monster-var (gensym)) 
     (method-var (gensym)) 
     (who-var (gensym)) 
     (what-var (gensym))) 
    `(let ((,monster-var ,monster) ; dummy comment 
      (,method-var ,method) 
      (,who-var ,who) 
      (,what-var ,what)) 
     (add-hook ,monster-var ,method-var ,who-var ,what-var) 
     (unwind-protect 
      (progn ,@body) 
      (remove-hook ,monster-var ,method-var ,who-var))))) 

一些注意事项：

1. something-var s的用于确保表达式monster，method，who，what只计算一次（因为这些表达式在宏体中被多次引用）并且按照从左到右的顺序。
2. gensym s的用于确保变量保证了唯一的名称
3. 开卷保护来确保remove-hook即使在非本地退出的情况下，所谓的（例如，堆放松由于被抛出的异常）。