Please disregard. Problem fixed by not using str at all. (defun tab (page active) (with-html-output-to-string (*empty-stream*) (:li :id page :class (when (string-equal page active) "active") (:a :href "#" page)))) On Sat, Sep 10, 2011 at 11:37 AM, Alok Thapa <i.gizmo@gmail.com> wrote:
Hi all,
When I evaluate this on the repl, it works as expected:
(with-html-output-to-string (*empty-stream*) (:li :id "hello" :class "active" (:a :href "#" "hello"))) "<li id=\"hello\" class=\"active\"><a href=\"#\">hello</a></li>"
but when I convert it into a function, then it gives me this:
(defun tab (page active) (with-html-output-to-string (*empty-stream*) (:li :id (str page) :class (when (string-equal page active) (str "active")) (:a :href "#" (str page))))) TAB (tab "home" "home")
"<lihome id=\"home\"active class=\"active\"><a href=\"#\">home</a></li>"
Is there something I am doing wrong? I've already tried substituting str with fmt and esc with no luck.
Thanks.
Alok