Commit 8c185ccd authored by david's avatar david

Revision: cxml--devel--1.0--patch-63

Creator: David Lichteblau <>
Date: Thu Feb  5 23:52:49 CET 2004
Standard-date: 2004-02-05 22:52:49 GMT
Modified-files: xml/xml-parse.lisp
Summary: Reihenfolge der Attribute erhalten

Reihenfolge der Attribute erhalten
parent 78278de3
......@@ -2771,7 +2771,7 @@
;; 1. is checked by read-tag-2, so we only deal with 2 here
(do ((sublist attributes (cdr sublist)))
((null sublist) attributes)
((null sublist) (reverse attributes))
(let ((attr-1 (car sublist)))
(when (and (attribute-namespace-uri attr-1)
(find-if #'(lambda (attr-2)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment