defadvice中的?argv是什么

标签：

      《Jess In Action》58页，这样说?argv：In the body of a defadvice call, the variable ?argv is special: It points to the actual function call being executed。

并给出例子如下：

 1 Jess> (bind ?grocery-list (create$ peas beans butter milk))
 2 (peas beans butter milk)
 3 Jess> (nth$ 1 ?grocery-list)
 4 peas
 5 Jess> (defadvice before nth$
 6 ;; Strip off the function name
 7 (bind ?tail (rest$ ?argv))
 8 ;; Convert zero-based to one-based index
 9 (bind ?index (+ 1 (nth$ 1 ?tail)))
10 ;; Put the argument list back together.
11 (bind ?argv (create$ nth$ ?index (rest$ ?tail))))
12 TRUE
13 Jess> (nth$ 1 ?grocery-list)
14 beans

      从11和13行可以看出，(rest$ ?tail)对应?grocery-list，故?tail对应(1 ?grocery-list)，所以9行的(nth$ 1 ?tail)就是1，加1以后变成了2。从7行得知，?tail是(rest$ ?argv)得来的，那么?argv就应该是(nth$ 1 grocery-list),这个是调用函数本身。

   所以得出结论，文首的话翻译后是：所谓的?argv，是指向实际正执行的函数本身，这个本身是指其表述本身，既不是其执行的结果，也不是其执行的参数，而是组成它的字符串。嗯，应该有个更好的表述，回头想起来了再来修改。

defadvice中的?argv是什么

标签：

原文地址：http://www.cnblogs.com/solarup/p/5658131.html