Commit 571ca993 authored by david's avatar david

Revision: cxml--devel--1.0--patch-84

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Mon Feb  9 11:59:16 CET 2004
Standard-date: 2004-02-09 10:59:16 GMT
Modified-files: domtest.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-84
Summary: featuretest case insensitive

featuretest case insensitive
parent 2a7b123b
......@@ -314,9 +314,9 @@
(defun translate-has-feature (element)
(with-attributes (|var| |feature| |version|) element
(maybe-setf (%intern |var|)
`(and (equal ,(parse-java-literal |feature|) "XML")
`(and (string-equal ,(parse-java-literal |feature|) "XML")
(or (zerop (length ,(parse-java-literal |version|)))
(equal ,(parse-java-literal |version|) "1.0"))))))
(string-equal ,(parse-java-literal |version|) "1.0"))))))
(defun translate-fail (element)
(declare (ignore element))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment