From ffc48c53de595315e3234a20abc961aad203ff5c Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Sat, 26 Apr 2008 23:32:06 +0200
Subject: [PATCH] Pretend a/@name is a URI

---
 src/parse/unparse.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/parse/unparse.lisp b/src/parse/unparse.lisp
index b0cc805..33abfb6 100644
--- a/src/parse/unparse.lisp
+++ b/src/parse/unparse.lisp
@@ -97,10 +97,13 @@
     (%write-rune #/> sink)))
 
 ;;; everything written as %URI in the DTD:
+;;;
+;;; a/@name shouldn't be in here according to that rule, but
+;;; the XSLT test suite wants it.
 (defun uri-attribute-p (ename aname)
   (find (rod-downcase aname)
 	(cdr (find (rod-downcase ename)
-		   '((#"a"          #"href")
+		   '((#"a"          #"href" #"name")
 		     (#"area"       #"href")
 		     (#"link"       #"href")
 		     (#"img"        #"src" #"longdesc" #"usemap")
-- 
2.11.4.GIT