ELisp編程十三:宏一

參考文檔：

http://www.gnu.org/software/emacs/manual/html_node/elisp/Macros.html#Macros

http://www.emacswiki.org/emacs/EmacsLispManual_Chinese_Notes#toc54

簡單的例子：

文檔中少了一行代碼，我補上：

(defmacro inc (var)        (list 'setq var (list '1+ var)))(setq x 1)(inc x)

運行結果是2

解釋：

inc (var) 是新定義的宏，當使用者調用的時候，將會執行(list 'setq var (list '1+ var)))  list ' 去掉後，變成(setq var (1+ var)),var又被替換成x

因此調用的實際代碼是：(setq x (1+ x))

要證明我的觀點可以用函數macroexpand來檢查調用展開的代碼：

(macroexpand '(inc x))

結果就是(setq x (1+ x))

記住，這裡分為兩個步驟：對宏的調用，首先返回的是宏展開的運算式，然後再對該運算式求值。

宏的定義裡面可以調用自己或者其他宏，對該宏的調用也是分步驟，首先返回第一層展開的運算式，然後再對裡面的宏進行展開，最後求值。

macroexpand-all函數可以顯示最終展開的運算式。