(user-name (esd-user-name slot))
(xml-user-name (escape-xml-string user-name))
(xml-tag (escape-xml-string user-name))
- (type (slot-value slot #-sbcl 'type
- #+sbcl 'sb-pcl::%type))
+ (type (slot-definition-type slot))
+
(cdata (not (null
(and (in vid :xml :xhtml :xml-link :xhtml-link
:xml-labels :ie-xml-labels