通用Lisp:如何使用宏为CL-WHO生成S-表达式？
通用Lisp:如何使用宏为CL-WHO生成S-表达式？
提问于 2012-04-12 21:08:29
假设我已经为CL-WHO定义了一个宏：
(defmacro test-html (&body body)
`(with-html-output-to-string (*standard-output* nil :PROLOGUE t :indent t)
(:html
(:body
,@body))))然后：
(test-html (:h1 "hallo"))给出(删除第一行)：
"<html>
<body>
<h1>
hallo
</h1>
</body>
</html>"不出所料。现在，我已经定义了一个函数来生成供CL-WHO使用的s-expression：
(defun test-header (txt)
`(:h1 ,txt))当使用"hallo“调用时，返回
(:h1 "hallo")但现在当我打电话给
(test-html (test-header "hallo"))它返回：
"<html>
<body>
</body>
</html>"哪里出了问题，原因是什么？
回答 2
Stack Overflow用户
回答已采纳
发布于 2012-04-13 03:11:16
我倾向于通过定义一个快捷宏来解决这个问题，比如
(defmacro html-to-stout (&body body)
"Outputs HTML to standard out."
`(with-html-output (*standard-output* nil :indent t) ,@body))或字符串等效项。这里的关键是它不输出:prologue，所以它可以输出HTML chunklet而不是整个页面。一旦你得到了它，你就可以像这样做
(defun test-header (text)
(html-to-stout
(:h1 (str text))))
(test-html (test-header "Hello Hello"))Stack Overflow用户
发布于 2012-04-12 21:25:53
我也有同样的问题。我所能搜索到的是，这在cl的官方版本中是不可能的：http://lisp-univ-etc.blogspot.com/2009/03/cl-who-macros.html
我使用的是这个版本，它支持宏：https://github.com/vseloved/cl-who
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/10124227
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号