Haris,<div><br></div><div>I'd write this:</div><div><br></div><div>   (html ((:td :onclick (ps (setf (@ this :background-color) 'blue))) "text"))</div><div><br></div><div>to emit this:</div><div><br></div>

<div>   <td onclick="this.backgroundColor = 'blue';">text</td></div><div><br>But that's in LML2, not CL-WHO. If I recall correctly, the reason we switched </div><div>from LML2 to CL-WHO was greater regularity with macroexpansions, so</div>

<div>YMMV.</div><div><br></div><div>Daniel</div><div><br></div><div><br><div class="gmail_quote">On Sun, Jun 20, 2010 at 12:42 PM, Haris Bogdanović <span dir="ltr"><<a href="mailto:fbogdanovic@xnet.hr">fbogdanovic@xnet.hr</a>></span> wrote:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">





<div bgcolor="#ffffff">
<div><font face="Arial" size="2">Sorry, I wrote that wrong.</font></div>
<div><font face="Arial" size="2">I want to set background color of td cell like 
this:</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2"><td onclick='this.bgcolor="blue"'> text 
</td></font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">with cl-who and ps like:</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">(:td :onclick (ps ("what goes here to get 
'this.bgcolor="blue"' ? ")))</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Thanks</font></div></div>
<br>_______________________________________________<br>
parenscript-devel mailing list<br>
<a href="mailto:parenscript-devel@common-lisp.net">parenscript-devel@common-lisp.net</a><br>
<a href="http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel" target="_blank">http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel</a><br>
<br></blockquote></div><br></div>