Russell,<div><br></div><div>Let's wait for Vladimir to double-check this, but I expect he'll apply your patch when he's back.</div><div><br></div><div>Daniel</div><div><br><br><div class="gmail_quote">On Mon, May 28, 2012 at 7:15 PM, Russell Sim <span dir="ltr"><<a href="mailto:russell.sim@gmail.com" target="_blank">russell.sim@gmail.com</a>></span> wrote:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hi,<br>
<br>
I think I have encountered a bug while using the who-ps-html macro.<br>
<br>
(who-ps-html<br>
  (:li<br>
    (:img :src icon :size 40)<br>
    (:p message)<br>
    (:span :class "author" name)<br>
    (:span :class "date" timestamp)))<br>
<br>
The first expansion of the who-ps-html yields,<br>
<br>
(STRINGIFY "<LI><IMG SRC=\"" ICON "\" SIZE=\"40\"><P>" MESSAGE<br>
           "</P><SPAN CLASS=\"author\">" NAME "</SPAN><SPAN CLASS=\"date\">"<br>
           TIMESTAMP "</SPAN></LI>")<br>
<br>
But the javascript generated is,<br>
<br>
['<LI><IMG SRC="', icon, '" SIZE="40"><P>', message, '</P><SPAN<br>
CLASS="author">', name, '</SPAN><SPAN CLASS="date">', timestamp,<br>
'</SPAN></LI>']['join']('')<br>
<br>
I have been able to get the correct behaviour by applying the following<br>
patch, since join is a symbol that is imported via the ps-js-symbols<br>
package.<br>
<br>
commit 86d39309692987644798148e24fd67b70667eaa7 (HEAD, refs/heads/master)<br>
Author: Russell Sim <<a href="mailto:russell.sim@gmail.com">russell.sim@gmail.com</a>><br>
Date:   Tue May 29 09:12:30 2012 +1000<br>
<br>
    Fixed :join bug in stringify expansion.<br>
<br>
        Modified   src/non-cl.lisp<br>
diff --git a/src/non-cl.lisp b/src/non-cl.lisp<br>
index 387bd29..f2ed0e7 100644<br>
--- a/src/non-cl.lisp<br>
+++ b/src/non-cl.lisp<br>
@@ -203,7 +203,7 @@<br>
 (defpsmacro stringify (&rest things)<br>
   (if (and (= (length things) 1) (stringp (car things)))<br>
       (car things)<br>
-      `((@ (list ,@things) :join) "")))<br>
+      `((@ (list ,@things) join) "")))<br>
 (defun stringify (&rest things)<br>
   "Like concatenate but prints all of its arguments."<br>
   (format nil "�窿�翳轭珞┅����描邋蝮��阴篌屐����哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌��疳蝈铙泸轲舡溴鲥�磲殪轭�扉篝��疳蝈铙泸轲舡溴鲥炖泔眄镱轶甬铄��梏麴函轶趔镯盹瞽扉箴弭玳轭衢祉犷轶糸铈锆疳蝈铙泸轲舡溴鲥��</blockquote></div><br></div>