From 5c597c9bcef50db59523372ead0938b254ac0ecd Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Sat, 16 Jun 2007 09:42:06 +0000
Subject: [PATCH]       <li>Serialization no longer defaults to canonical
 form.</li>

---
 doc/index.xml    | 5 +++++
 xml/unparse.lisp | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/doc/index.xml b/doc/index.xml
index 35e0f61..02f8236 100644
--- a/doc/index.xml
+++ b/doc/index.xml
@@ -57,6 +57,11 @@
 
     <a name="changes"/>
     <h3>Recent Changes</h3>
+    <p class="nomargin"><tt>rel-2007-mm-dd</tt></p>
+    <ul class="nomargin">
+      <li>Serialization no longer defaults to canonical form.</li>
+      <li>Fixed octet array argument to make-source.</li>
+    </ul>
     <p class="nomargin"><tt>rel-2007-05-26</tt></p>
     <ul class="nomargin">
       <li><b>cxml.asd has been split up into <tt>cxml.asd</tt> for the
diff --git a/xml/unparse.lisp b/xml/unparse.lisp
index f8194ed..dbc47fd 100644
--- a/xml/unparse.lisp
+++ b/xml/unparse.lisp
@@ -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)