我正在迈出Common Lisp的第一步 并感谢clouchdb http://common-lisp.net/project/clouchdb/#examples
我设法从couchdb
获取一些简单数据 (invoke-view "hulk" "hulk" )
((:|total_rows| . 2) (:|offset| . 0) (:|rows| ((:|id| . "gjc") (:|key| . "hulk") (:|value|
(:|_id| . "gjc2321o3io13") (:|_rev| . "3-b6433781c65460f2c9b1f1a153953171")
(:NAME . "Dr Bruce Banner") (:|kind| . "users") (:|username| . "hulk") (:|title| . "gamma r adia
tions: what to do ?"))) ((:|id| . "irnmn239223") (:|key| . "ironman") (:|value| (:|_id| . "irnmn2 39223")
(:|_ rev| . "5-2b6cf739d24b1208fe8eca70e37ffdc9") (:|name| . "tony stark") (:|title| .
(:|name| . "tony stark") (:|title| . "why iphone 5 sucks - but i own one \"") (:|kind| . "users") (:|username| . "ironman") (:|text| . "welcome to post number one ......")))))
7＆gt;
我使用SEXML显示HTML记录，因此我的HTML显示模板看起来像这样
;;static here
(<:h2 "((LISP RETRO BLOG))")
(<:h3 "(( ***** RETRO BUT STILL COOL *****))")
(<:p "( (MADE IN LISP ))")
(<:p "READY.")
(<:img :src "/img/prompt.gif" :alt "cursor"))
;;this is a variable
(<:p "universal time: " mytime)
现在，我将通过上述结果创建一个简单的循环（例如，用户名是铁人和绿巨人）来显示类似
的内容 (<:p "Welcome!" username)
很抱歉发布了这么多代码，结果可能是一个非常简单的循环。我确实阅读并尝试了示例（http://psg.com/~dlamkins/sl/chapter05.html）和其他资源，但我可能遗漏了一些非常基本的内容，并感谢您的帮助。请注意，couchdb文档可能具有不同的字段，因此它与循环访问具有模式的某些记录不完全相同。这可能是相关的，例如如果文档是博客文章，它可能包含或可能不包含标签，因此我可能希望显示/创建包含文档中所有可用数据的页面（可能不包括_id）。
如果某些内容不明确只是评论，我将很乐意编辑这个问题。
提前致谢！
答案 0 :(得分：2)
如果将其重新格式化为更具可读性，您将更好地理解输出数据。像这样：
((:|total_rows| . 2) (:|offset| . 0)
(:|rows|
((:|id| . "gjc") (:|key| . "hulk")
(:|value|
(:|_id| . "gjc2321o3io13")
(:|_rev| . "3-b6433781c65460f2c9b1f1a153953171")
(:NAME . "Dr Bruce Banner")
(:|kind| . "users")
(:|username| . "hulk")
(:|title| . "gamma radiations: what to do ?")))
((:|id| . "irnmn239223") (:|key| . "ironman")
(:|value|
(:|_id| . "irnmn2 39223")
(:|_ rev| . "5-2b6cf739d24b1208fe8eca70e37ffdc9")
(:|name| . "tony stark")
(:|title| .
;; here you repeat name and title, so the previous and next lines are erroneous
(:|name| . "tony stark")
(:|title| . "why iphone 5 sucks - but i own one \"")
(:|kind| . "users")
(:|username| . "ironman")
(:|text| . "welcome to post number one ......")))))
所以，你从CouhcDB通过clouchdb得到的是一个特殊结构的列表，用Lisp的说法称为 alist 。有一组用于处理alist的函数，其中最重要的是ASSOC。
结果告诉您，您有2行，每行都将数据作为另一个列表。要迭代它们，您可以使用以下函数：
(defun maprows (fn data)
(mapcar fn (cdr (assoc :|rows| data))))
现在你必须传递MAPROWS一个参数的函数FN。例如，如果您只想以合理的方式打印值，则可以传递以下函数。
(defun print-row (record)
(dolist (pair (cdr (assoc :|value| record)))
(format t "~A: ~A~%" (car pair) (cdr pair)))
(terpri))
让我们看看它是如何运作的：
CL-USER> (maprows 'print-row
'((:|total_rows| . 2) (:|offset| . 0)
(:|rows|
((:|id| . "gjc") (:|key| . "hulk")
(:|value|
(:|_id| . "gjc2321o3io13")
(:|_rev| . "3-b6433781c65460f2c9b1f1a153953171")
(:NAME . "Dr Bruce Banner")
(:|kind| . "users")
(:|username| . "hulk")
(:|title| . "gamma radiations: what to do ?")))
((:|id| . "irnmn239223") (:|key| . "ironman")
(:|value|
(:|_id| . "irnmn2 39223")
(:|_rev| . "5-2b6cf739d24b1208fe8eca70e37ffdc9")
(:|name| . "tony stark")
(:|title| . "why iphone 5 sucks - but i own one \"")
(:|kind| . "users")
(:|username| . "ironman")
(:|text| . "welcome to post number one ......"))))))
_id: gjc2321o3io13
_rev: 3-b6433781c65460f2c9b1f1a153953171
NAME: Dr Bruce Banner
kind: users
username: hulk
title: gamma radiations: what to do ?
_id: irnmn2 39223
_rev: 5-2b6cf739d24b1208fe8eca70e37ffdc9
name: tony stark
title: why iphone 5 sucks - but i own one "
kind: users
username: ironman
text: welcome to post number one ......
(NIL NIL)
如您所见，MAPROWS也会收集FN的应用结果，与基础MAPCAR一样。
答案 1 :(得分：2)
这是一个有点不同的方法，但是，我并不完全满意。也许有人会纠正我/建议一个更好的方法，但这个整体策略被称为对象映射。即当您从数据库中的表中检索数据时，您将构建一个对您编写应用程序逻辑的语言更加舒适的对象。
现在，具有讽刺意味的是，CouchDB应该超越这个阶段 - 因为它将对象编码为JSON格式，它对JavaScript来说是“原生的”，在那里它是常用的。但是，你在CL中收到它的格式不适合使用它/它不是一个很好的本地对象表示。现在，既然你不能在客户端浏览器应用程序中使用CL，我真的没有看到你所拥有的组合中的一个点......我的意思是，你在服务器端没有赢得任何东西（很可能，你会失去性能） -wise，但由于这是您的个人博客，因此这不太可能是一个问题。）
所以，下面是对一些天真的对象映射的尝试：
(defclass db-object () ())
(defun slot-list-from-query (query)
(mapcar
#'(lambda (pair)
(let ((name (string-upcase (symbol-name (car pair)))))
(list (intern name)
:accessor
(intern (concatenate 'string name "-OF"))
:initarg (intern name "KEYWORD")))) (eval query)))
(defmacro table-to-class (name describe-table-query)
`(let ((db-class (defclass ,name (db-object)
,(slot-list-from-query describe-table-query))))
(defmethod initialize-instance :after ((object ,name) &key raw-data)
(mapcar
#'(lambda (pair)
(setf (slot-value object
(find-symbol
(string-upcase
(symbol-name (car pair)))))
(cdr pair))) raw-data))
db-class))
(defparameter *raw-data*
'((:|total_rows| . 2) (:|offset| . 0)
(:|rows|
((:|id| . "gjc") (:|key| . "hulk")
(:|value|
(:|_id| . "gjc2321o3io13")
(:|_rev| . "3-b6433781c65460f2c9b1f1a153953171")
(:|name| . "Dr Bruce Banner")
(:|kind| . "users")
(:|username| . "hulk")
(:|title| . "gamma radiations: what to do ?")))
((:|id| . "irnmn239223") (:|key| . "ironman")
(:|value|
(:|_id| . "irnmn2 39223")
(:|_rev| . "5-2b6cf739d24b1208fe8eca70e37ffdc9")
(:|name| . "tony stark")
(:|title| . "why iphone 5 sucks - but i own one \"")
(:|kind| . "users")
(:|username| . "ironman")
(:|text| . "welcome to post number one ......"))))))
(table-to-class example-mapping (car (cdaddr *raw-data*)))
(id-of (make-instance 'example-mapping :id "foo")) ; foo
(id-of (make-instance 'example-mapping :raw-data (car (cdaddr *raw-data*)))) ; gjc
我采取自由来“修复”你的数据，使它看起来一致。此外，通常在运行代码之前会有表格描述，因此在运行时声明类的整个麻烦将减少到部署之前要执行的某些机制操作，并且不需要{{ 1}}在这个宏中。我这样发布它是为了保留你所拥有的信息，并让它看起来好像是在部署代码后收到的。
如果您想使用它，则删除eval并执行以下操作：
eval