Commit bd8548dc authored by david's avatar david

Revision: cxml--devel--1.0--patch-41

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Wed Feb  4 22:00:00 CET 2004
Standard-date: 2004-02-04 21:00:00 GMT
Modified-files: xml/xml-parse.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-41
Summary: Warnung ueber (nicht) redefinierte Attribute abschalten koennen

Warnung ueber (nicht) redefinierte Attribute abschalten koennen
parent 7abef0af
......@@ -720,15 +720,18 @@
;;;;
(defvar *redefinition-warning* t)
(defun define-attribute (dtd element name type default)
(let ((adef (make-attdef :element element
:name name
:type type
:default default)))
(cond ((find-attribute dtd element name)
(warn "Attribute \"~A\" of \"~A\" not redefined."
(rod-string name)
(rod-string element)))
(when *redefinition-warning*
(warn "Attribute \"~A\" of \"~A\" not redefined."
(rod-string name)
(rod-string element))))
(t
(push adef (dtd-attdefs dtd))))))
......
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