[cl-who-devel] Double sexp tree traversal

[Slawek Zak]

Gah, it's macroexpanded twice! :)

/S

On Thu, Feb 26, 2009 at 7:13 PM, Slawek Zak <slawek.zak at 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
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cl-who-devel/attachments/20090304/0c56fc7b/attachment.html>