Gah, it's macroexpanded twice! :)

/S

On Thu, Feb 26, 2009 at 7:13 PM, Slawek Zak slawek.zak@gmail.com wrote:

Hi,

Is it necessary to walk the tree two times in cl-who?

CL-USER> (cl-who:with-html-output-to-string (*standard-output*) (:one (:two))) 0[7]: (CL-WHO::TREE-TO-TEMPLATE ((:ONE (:TWO)))) 1[7]: (CL-WHO::PROCESS-TAG (:ONE (:TWO)) #<Function TREE-TO-TEMPLATE>) 2[7]: (CL-WHO::TREE-TO-TEMPLATE ((:TWO))) 3[7]: (CL-WHO::PROCESS-TAG (:TWO) #<Function TREE-TO-TEMPLATE>) 3[7]: returned ("<" "two" ">" "</" "two" ">") 2[7]: returned ("<" "two" ">" "</" "two" ">") 1[7]: returned ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">") 0[7]: returned ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">") 0[7]: (CL-WHO::TREE-TO-TEMPLATE ((:ONE (:TWO)))) 1[7]: (CL-WHO::PROCESS-TAG (:ONE (:TWO)) #<Function TREE-TO-TEMPLATE>) 2[7]: (CL-WHO::TREE-TO-TEMPLATE ((:TWO))) 3[7]: (CL-WHO::PROCESS-TAG (:TWO) #<Function TREE-TO-TEMPLATE>) 3[7]: returned ("<" "two" ">" "</" "two" ">") 2[7]: returned ("<" "two" ">" "</" "two" ">") 1[7]: returned ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">") 0[7]: returned ("<" "one" ">" "<" "two" ">" "</" "two" ">" "</" "one" ">")

I use version:

$Header: /usr/local/cvsrep/cl-who/who.lisp,v 1.36 2008/03/27 23:17:55 edi Exp

Thanks, /S