[clouchdb-cvs] CVS clouchdb/src

[peddy]

Update of /project/clouchdb/cvsroot/clouchdb/src
In directory clnet:/tmp/cvs-serv30013/src

Modified Files:
	clouchdb.lisp 
Log Message:
Switched to using custom document encoder


--- /project/clouchdb/cvsroot/clouchdb/src/clouchdb.lisp	2007/12/18 21:33:34	1.11
+++ /project/clouchdb/cvsroot/clouchdb/src/clouchdb.lisp	2007/12/20 23:40:29	1.12
@@ -221,10 +221,12 @@
 (defun document-to-json (doc)
   "Convert document data, the top-level of wich is either an
   associative list or hashtable, to json data"
-  (cond ((listp doc)
-	 (json:encode-json-alist-to-string doc))
-	(t
-	 (json:encode-json-to-string doc))))
+  (encode-document doc))
+
+;;   (cond ((listp doc)
+;; 	 (json:encode-json-alist-to-string doc))
+;; 	(t
+;; 	 (json:encode-json-to-string doc))))
 
 (defun document-as-hash (doc)
   "Convert a document to a hashtable if it isn't one already. Document