Строки не отображаются в шаблоне CL-WHO

(require :cl-who)
(defmacro rawpage ((&rest head) &body body)
  `(cl-who:with-html-output-to-string (*standard-output* nil :prologue t)
    (:html
    (:head
      (:meta :charset "utf-8")
      ,@head)
    (:body
      ,@body))))

(defmacro str+ (&rest strs)
  `(concatenate 'string ,@strs))

(rawpage () (:div (str+ "hello," "name")))

Этот кусок кодов не выводит то, что я хочу. Я ожидал, что это вывод:

<html><head><meta charset='utf-8' /></head><body><div>hello,name</div></body></html>

Но это вывод:

<html><head><meta charset='utf-8' /></head><body><div></div></body></html>

Кто-нибудь может сказать мне, почему? Я использую SBCL.

Источник

1 ответ

Решение

Ваша проблема в том, что в CL-WHO непостоянные строки должны быть помещены внутри str как это:

(defmacro rawpage ()
  (:div (str (str+ "hello," "name"))))
Источник
Другие вопросы по тегам