Sorry, I wrote that wrong.
I want to set background color of td cell like this:
 
<td onclick='this.bgcolor="blue"'> text </td>
 
with cl-who and ps like:
 
(:td :onclick (ps ("what goes here to get 'this.bgcolor="blue"' ? ")))
 
Thanks