[cxml-cvs] CVS cxml/xml

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/xml
In directory clnet:/tmp/cvs-serv29603/xml

Modified Files:
	unparse.lisp 
Log Message:
      <li>Serialization no longer defaults to canonical form.</li>


--- /project/cxml/cvsroot/cxml/xml/unparse.lisp	2007/05/01 20:07:00	1.13
+++ /project/cxml/cvsroot/cxml/xml/unparse.lisp	2007/06/16 09:42:06	1.14
@@ -72,7 +72,7 @@
 (defclass sink ()
     ((ystream :initarg :ystream :accessor sink-ystream)
      (width :initform 79 :initarg :width :accessor width)
-     (canonical :initform t :initarg :canonical :accessor canonical)
+     (canonical :initform nil :initarg :canonical :accessor canonical)
      (indentation :initform nil :initarg :indentation :accessor indentation)
      (current-indentation :initform 0 :accessor current-indentation)
      (notations :initform (make-buffer :element-type t) :accessor notations)