[s-xml-devel] patch to preserve attributes order

[Mac Chan]

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)))