From emailmac at gmail.com  Fri Apr 27 05:26:07 2007
From: emailmac at gmail.com (Mac Chan)
Date: Thu, 26 Apr 2007 22:26:07 -0700
Subject: [s-xml-devel] patch to preserve attributes order
Message-ID: <4877ae640704262226u2bb3f1b4vdb97fc600617deab@mail.gmail.com>

Hi,

Sometimes I use s-xml to load a file as DOM, manipulate it and write
it back to file.
It would be nice if s-xml could preserve the attributes order when reading it.

Attach is a simple patch for this.

Thanks,
-- Mac

Index: xml-struct-dom.lisp
===================================================================
--- xml-struct-dom.lisp	(revision 1123)
+++ xml-struct-dom.lisp	(working copy)
@@ -106,7 +106,7 @@

  (defun standard-finish-element-hook (name attributes parent-seed seed)
   (let ((xml-element (make-xml-element :name name
-				       :attributes attributes
+				       :attributes (nreverse attributes)
  				       :children (nreverse seed))))
     (cons xml-element parent-seed)))