anchor.diff:  get_type_description(#xmlElement{name = typedecl} = Type) ->
       get_description(Type).
   
  -%% Intended only for tracing.
  -debug(_, _) -> ok.
  -
   get_content(Name, Default, ContinueFun, #xmlElement{content = Content} = Element) ->
       case lists:keyfind(Name, #xmlElement.name, Content) of
           false -> debug({not_found, Name}, Element),
  
positive.code:          '#text#'/1,
           '#xml-inheritance#'/0]).
  
  %-export([dd/4,
  %         dl/4,
  %         fullDescription/4,
  %         li/4]).
  
  -include_lib("xmerl/include/xmerl.hrl").
  
  -define(il2b(IOList), iolist_to_binary(IOList)).
  -define(l2b(L), list_to_binary(L)).
  -define(l2i(L), list_to_integer(L)).
  -define(l2ea(L), list_to_existing_atom(L)).
  
  
negative.code:         {value, Value} -> Value
      end.
  
  %% Intended only for tracing.
  debug(_, _) -> ok.
  