Pretend a/@name is a URI
authorDavid Lichteblau <david@lichteblau.com>
Sat, 26 Apr 2008 21:32:06 +0000 (26 23:32 +0200)
committerDavid Lichteblau <david@radon.(none)>
Sat, 26 Apr 2008 21:32:06 +0000 (26 23:32 +0200)
src/parse/unparse.lisp

index b0cc805..33abfb6 100644 (file)
     (%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")