[clouchdb-cvs] CVS clouchdb/src

[peddy]

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

Modified Files:
	encoder.lisp clouchdb.asd 
Log Message:
Added encoder to asd file list, added missing defparmeter to encoding.lisp


--- /project/clouchdb/cvsroot/clouchdb/src/encoder.lisp	2007/12/20 23:43:33	1.1
+++ /project/clouchdb/cvsroot/clouchdb/src/encoder.lisp	2007/12/20 23:57:09	1.2
@@ -29,6 +29,16 @@
 
 (defparameter *symbol-to-string-fn* #'js::symbol-to-js)
 
+(defparameter *json-lisp-escaped-chars*
+  `((#\" . #\")
+    (#\\ . #\\)
+    (#\/ . #\/)
+    (#\b . #\Backspace)
+    (#\f . ,(code-char 12))
+    (#\n . #\Newline)
+    (#\r . #\Return)
+    (#\t . #\Tab)))
+
 (defun lisp-special-char-to-json (lisp-char)
     (car (rassoc lisp-char *json-lisp-escaped-chars*)))
 
--- /project/clouchdb/cvsroot/clouchdb/src/clouchdb.asd	2007/12/17 13:58:32	1.2
+++ /project/clouchdb/cvsroot/clouchdb/src/clouchdb.asd	2007/12/20 23:57:09	1.3
@@ -41,5 +41,6 @@
                :cl-json
                :flexi-streams)
   :components ((:file "package")
-               (:file "clouchdb")))
+               (:file "clouchdb")
+               (:file "encoder")))