20 lines
569 B
Common Lisp
20 lines
569 B
Common Lisp
(in-package :cxml)
|
|
|
|
(defun %unparse-document (sink doc canonical)
|
|
(dom:map-document sink
|
|
doc
|
|
:include-doctype (if (and canonical (>= canonical 2))
|
|
:canonical-notations
|
|
nil)
|
|
:include-default-values t))
|
|
|
|
(defun unparse-document-to-octets (doc &rest initargs &key canonical)
|
|
(%unparse-document (apply #'make-octet-vector-sink initargs)
|
|
doc
|
|
canonical))
|
|
|
|
(defun unparse-document (doc stream &rest initargs &key canonical)
|
|
(%unparse-document (apply #'make-character-stream-sink stream initargs)
|
|
doc
|
|
canonical))
|