[cl-who-devel] Looks like a bug to me?

[Robin Lee Powell]

(require 'cl-who)
(use-package 'cl-who)
(let ((userid 46))
    (with-html-output (*standard-output*)
	(:a :id 7) (str (format nil "~%"))
	(:a :id "7") (str (format nil "~%"))
	(:a :id (str userid))))

I'm sure there's some better way to get newlines in the output.
Anyways, output is:

<a id='7'></a>
<a id='7'></a>
<a46 id='46'></a>

That last one is really staggeringly wrong.  Is it me or the code?

-Robin

-- 
Lojban Reason #17: http://en.wikipedia.org/wiki/Buffalo_buffalo
Proud Supporter of the Singularity Institute - http://singinst.org/
http://www.digitalkingdom.org/~rlpowell/ *** http://www.lojban.org/