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