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