[cl-who-devel] (Str ... in attributes

[helmut at cybernetic-systems.de]

 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";' />