From 2cc6c30dbbe0e904ea55104546e5d17b3cc88edb Mon Sep 17 00:00:00 2001 From: David Lichteblau Date: Sat, 26 Apr 2008 16:32:10 +0200 Subject: [PATCH] Check xsl:key attributes --- TEST | 4 ++-- xslt.lisp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/TEST b/TEST index cfa0242..f81af34 100644 --- a/TEST +++ b/TEST @@ -13817,7 +13817,7 @@ PASS Keys__91717 [XSLT-Data-Manipulation]: raised an xslt-error as expected Expected output (1): MSFT_Conformance_Tests/Keys/Keys__91717.saxon Actual output: MSFT_Conformance_Tests/Keys/Keys__91717.xuriella -FAIL Keys__91718 [XSLT-Data-Manipulation]: expected error not signalled: +PASS Keys__91718 [XSLT-Data-Manipulation]: raised an xslt-error as expected Stylesheet: MSFT_Conformance_Tests/Keys/91718.noindent-xsl Data: MSFT_Conformance_Tests/Keys/key.xml Expected output (1): MSFT_Conformance_Tests/Keys/Keys__91718.saxon @@ -19373,4 +19373,4 @@ PASS XSLTFunctions_DocumentFuncWithEmptyArg [Mixed] Expected output (1): MSFT_Conformance_Tests/XSLTFunctions/XSLTFunctions_DocumentFuncWithEmptyArg.saxon Actual output: MSFT_Conformance_Tests/XSLTFunctions/XSLTFunctions_DocumentFuncWithEmptyArg.xuriella -Passed 2938/3079 tests (4 expected failures, 137 unexpected failures). +Passed 2939/3079 tests (4 expected failures, 136 unexpected failures). diff --git a/xslt.lisp b/xslt.lisp index c8194cf..a1c9711 100644 --- a/xslt.lisp +++ b/xslt.lisp @@ -1110,7 +1110,7 @@ (do-toplevel ( "key" ) (with-import-magic ( env) (let ((*instruction-base-uri* (stp:base-uri ))) - (stp:with-attributes (name match use) + (only-with-attributes (name match use) (unless name (xslt-error "key name attribute not specified")) (unless match (xslt-error "key match attribute not specified")) (unless use (xslt-error "key use attribute not specified")) -- 2.11.4.GIT