2012-11-21 77 views

回答

7

你可以使用macro-function

CL-USER> (defmacro foo() ''foo) 
FOO 
CL-USER> (defun bar() 'bar) 
BAR 
CL-USER> (macro-function 'foo) 
#<Compiled-function FOO Macroexpander #x187F0026> 
CL-USER> (macro-function 'bar) 
NIL 
+0

太好了!謝謝 ! – nickjackolson