From 6b20ed4977f71987216b68636531c4592f123101 Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Sun, 20 Apr 2008 22:57:47 +0200
Subject: [PATCH] Fixed condition type in call-template

---
 TEST      | 8 +++-----
 xslt.lisp | 4 ++--
 2 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/TEST b/TEST
index 01737d7..2ce8aca 100644
--- a/TEST
+++ b/TEST
@@ -12845,8 +12845,7 @@ PASS Errors_err095 [Mixed]: raised an xslt-error as expected
   Expected output (1): MSFT_Conformance_Tests/Errors/Errors_err095.saxon
   Actual output: MSFT_Conformance_Tests/Errors/Errors_err095.xuriella
 
-FAIL Errors_err097 [Mixed]: condition of incorrect type: 
-cannot find named template: ("no-exist" . "")
+PASS Errors_err097 [Mixed]: raised an xslt-error as expected
   Stylesheet: MSFT_Conformance_Tests/Errors/templ-noexist.noindent-xsl
   Data: MSFT_Conformance_Tests/Errors/data.xml
   Expected output (1): MSFT_Conformance_Tests/Errors/Errors_err097.saxon
@@ -14568,8 +14567,7 @@ PASS NamedTemplates__84041 [XSLT-Template]: raised an xslt-error as expected
   Expected output (1): MSFT_Conformance_Tests/NamedTemplates/NamedTemplates__84041.saxon
   Actual output: MSFT_Conformance_Tests/NamedTemplates/NamedTemplates__84041.xuriella
 
-FAIL NamedTemplates__84042 [XSLT-Template]: condition of incorrect type: 
-cannot find named template: ("book" . "")
+PASS NamedTemplates__84042 [XSLT-Template]: raised an xslt-error as expected
   Stylesheet: MSFT_Conformance_Tests/NamedTemplates/84042.noindent-xsl
   Data: MSFT_Conformance_Tests/NamedTemplates/books.xml
   Expected output (1): MSFT_Conformance_Tests/NamedTemplates/NamedTemplates__84042.saxon
@@ -19413,4 +19411,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 2901/3080 tests (3 expected failures, 176 unexpected failures).
+Passed 2903/3080 tests (3 expected failures, 174 unexpected failures).
diff --git a/xslt.lisp b/xslt.lisp
index ef9e4d7..8956505 100644
--- a/xslt.lisp
+++ b/xslt.lisp
@@ -1504,8 +1504,8 @@
                               (find-named-templates name)
                               param-bindings
                               (lambda ()
-                                (error "cannot find named template: ~s"
-                                       name))))
+                                (xslt-error "cannot find named template: ~s"
+                                            name))))
 
 (defun find-templates (ctx mode)
   (let* ((matching-candidates
-- 
2.11.4.GIT