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

[Robin Lee Powell]

On Mon, Sep 29, 2008 at 05:16:15AM +0400, Stas Boukarev wrote:
> On Mon, Sep 29, 2008 at 5:03 AM, Robin Lee Powell
> <rlpowell at digitalkingdom.org> wrote:
> >
> > (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?
> >
> You don't need (str ...) for atrributes:
> 
> (let ((userid 46))
>    (with-html-output (*standard-output*)
>        (:a :id 7) (str (string #\Newline))
>        (:a :id "7") (str (string #\Newline))
>        (:a :id userid)))

What if I need to use format to generate the value, which is where
this use case originally came from?

(let ((userid 46))
   (with-html-output (*standard-output*)
          (:a :id (fmt "user-~A" userid))))

<auser-46></a>

-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/