From c2e6d1ff09206543cee3d9f8b73ab79af9e8f432 Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Sat, 26 Apr 2008 14:19:23 +0200
Subject: [PATCH] Allow id and xml:space on stylesheet

---
 xslt.lisp | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/xslt.lisp b/xslt.lisp
index fa9a969..ba08166 100644
--- a/xslt.lisp
+++ b/xslt.lisp
@@ -519,10 +519,13 @@
                  (or (equal (stp:local-name <transform>) "transform")
                      (equal (stp:local-name <transform>) "stylesheet")))
       (xslt-error "not a stylesheet"))
-    (check-for-invalid-attributes '(("version" . "")
-                                    ("exclude-result-prefixes" . "")
-                                    ("extension-element-prefixes" . ""))
-                                  <transform>)
+    (check-for-invalid-attributes
+     '(("version" . "")
+       ("exclude-result-prefixes" . "")
+       ("extension-element-prefixes" . "")
+       ("space" . "http://www.w3.org/XML/1998/namespace")
+       ("id" . ""))
+     <transform>)
     (let ((invalid
            (or (stp:find-child-if (of-name "stylesheet") <transform>)
                (stp:find-child-if (of-name "transform") <transform>))))
-- 
2.11.4.GIT