This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.
The procedure is defined as:
proc sgml::DTDAttribute {name type default value} { upvar attlist al # This needs further work set al($name) [list $default $value] }