Initial revision

2005-03-13 18:02:10 +00:00
commit d6ca7664f4
81 changed files with 19663 additions and 0 deletions
--- a/dom/unparse.lisp
+++ b/dom/unparse.lisp
@ -0,0 +1,9 @@
+(in-package :cxml)
+
+(defun unparse-document-to-octets (doc &rest initargs)
+  (let ((sink (apply #'make-octet-vector-sink initargs)))
+    (dom:map-document sink doc :include-default-values t)))
+
+(defun unparse-document (doc character-stream &rest initargs)
+  (let ((sink (apply #'make-character-stream-sink character-stream initargs)))
+    (dom:map-document sink doc :include-default-values t)))