h***@cybernetic-systems.de
2007-08-26 15:25:50 UTC
Some problems with (str ...
Version: $Header: /usr/local/cvsrep/cl-who/cl-who.asd,v 1.16 2007/05/28
18:31:31 edi Exp $
I have an incorrect output when using (str.... as the value of an attribute.
(Or is that not allowed?)
Helmut
Example:
CL-USER> (cl-who:with-html-output (*standard-output*)
(:input :onmouseover (cl-who:str "style.border=\"thin solid black\";")))
Result NotSoOK:>
<inputstyle.border="thin solid black"; onmouseover='style.border="thin
solid black";' />
CL-USER> (cl-who:with-html-output (*standard-output*)
(:input :onmouseover "style.border=\"thin solid black\";"))
Result OK:>
<input onmouseover='style.border="thin solid black";' />
Same with a variable:
CL-USER> (let ((ot "style.border=\"thin solid black\";"))
(cl-who:with-html-output (*standard-output*)
(:input :onmouseover (cl-who:str ot))))
Result NotOK:>
<inputstyle.border="thin solid black"; onmouseover='style.border="thin
solid black";' />
CL-USER> (let ((ot "style.border=\"thin solid black\";"))
(cl-who:with-html-output (*standard-output*)
(:input :onmouseover ot)))
Result OK:>
<input onmouseover='style.border="thin solid black";' />
Version: $Header: /usr/local/cvsrep/cl-who/cl-who.asd,v 1.16 2007/05/28
18:31:31 edi Exp $
I have an incorrect output when using (str.... as the value of an attribute.
(Or is that not allowed?)
Helmut
Example:
CL-USER> (cl-who:with-html-output (*standard-output*)
(:input :onmouseover (cl-who:str "style.border=\"thin solid black\";")))
Result NotSoOK:>
<inputstyle.border="thin solid black"; onmouseover='style.border="thin
solid black";' />
CL-USER> (cl-who:with-html-output (*standard-output*)
(:input :onmouseover "style.border=\"thin solid black\";"))
Result OK:>
<input onmouseover='style.border="thin solid black";' />
Same with a variable:
CL-USER> (let ((ot "style.border=\"thin solid black\";"))
(cl-who:with-html-output (*standard-output*)
(:input :onmouseover (cl-who:str ot))))
Result NotOK:>
<inputstyle.border="thin solid black"; onmouseover='style.border="thin
solid black";' />
CL-USER> (let ((ot "style.border=\"thin solid black\";"))
(cl-who:with-html-output (*standard-output*)
(:input :onmouseover ot)))
Result OK:>
<input onmouseover='style.border="thin solid black";' />