Gah, it's macroexpanded twice! :)<br><br>/S<br><br><div class="gmail_quote">On Thu, Feb 26, 2009 at 7:13 PM, Slawek Zak <span dir="ltr"><<a href="mailto:slawek.zak@gmail.com">slawek.zak@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Hi,<br>
<br>
Is it necessary to walk the tree two times in cl-who?<br>
<br>
CL-USER> (cl-who:with-html-output-to-string (*standard-output*)<br>
       (:one (:two)))<br>
 0[7]: (CL-WHO::TREE-TO-TEMPLATE ((:ONE (:TWO))))<br>
   1[7]: (CL-WHO::PROCESS-TAG (:ONE (:TWO))<br>
                              #<Function TREE-TO-TEMPLATE>)<br>
     2[7]: (CL-WHO::TREE-TO-TEMPLATE ((:TWO)))<br>
       3[7]: (CL-WHO::PROCESS-TAG (:TWO) #<Function TREE-TO-TEMPLATE>)<br>
       3[7]: returned ("<" "two" ">" "</" "two" ">")<br>
     2[7]: returned ("<" "two" ">" "</" "two" ">")<br>
   1[7]: returned<br>
           ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">")<br>
 0[7]: returned<br>
         ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">")<br>
 0[7]: (CL-WHO::TREE-TO-TEMPLATE ((:ONE (:TWO))))<br>
   1[7]: (CL-WHO::PROCESS-TAG (:ONE (:TWO))<br>
                              #<Function TREE-TO-TEMPLATE>)<br>
     2[7]: (CL-WHO::TREE-TO-TEMPLATE ((:TWO)))<br>
       3[7]: (CL-WHO::PROCESS-TAG (:TWO) #<Function TREE-TO-TEMPLATE>)<br>
       3[7]: returned ("<" "two" ">" "</" "two" ">")<br>
     2[7]: returned ("<" "two" ">" "</" "two" ">")<br>
   1[7]: returned<br>
           ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">")<br>
 0[7]: returned<br>
         ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">")<br>
<br>
I use version:<br>
<br>
$Header: /usr/local/cvsrep/cl-who/who.lisp,v 1.36 2008/03/27 23:17:55 edi Exp<br>
<br>
Thanks, /S<br>
</blockquote></div><br>