From slawek.zak at gmail.com  Thu Feb 26 18:13:32 2009
From: slawek.zak at gmail.com (Slawek Zak)
Date: Thu, 26 Feb 2009 19:13:32 +0100
Subject: [cl-who-devel] Double sexp tree traversal
Message-ID: <787bbe1c0902261013o72164de5w87dc371369aea068@mail.gmail.com>

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