Author: lgiessmann Date: Mon Sep 26 01:12:10 2011 New Revision: 969 Log: fixed a bug in the xtm-exporter Modified: branches/gdl-frontend/src/anaToMia/TextGrid_ServiceRegistry_required_TMCL.xtm branches/gdl-frontend/src/xml/xtm/exporter.lisp Modified: branches/gdl-frontend/src/anaToMia/TextGrid_ServiceRegistry_required_TMCL.xtm ============================================================================== --- branches/gdl-frontend/src/anaToMia/TextGrid_ServiceRegistry_required_TMCL.xtm Mon Sep 26 00:43:25 2011 (r968) +++ branches/gdl-frontend/src/anaToMia/TextGrid_ServiceRegistry_required_TMCL.xtm Mon Sep 26 01:12:10 2011 (r969) @@ -1,4 +1,4 @@ -<?xml version="1.0" encoding="utf-8"?> +<?xml version="1.0" encoding="utf-8"?> <!-- This topic map fragment describes the required TMCL (2010-05-03) --> <!-- definition for the TextGrid ServiceRegistry of 2011-09-23. --> <!-- I.e. the constraints defined in this fragment refer to --> @@ -2357,4 +2357,3 @@ </t:instanceOf> </t:topic> </t:topicMap> -</t:topicMap> Modified: branches/gdl-frontend/src/xml/xtm/exporter.lisp ============================================================================== --- branches/gdl-frontend/src/xml/xtm/exporter.lisp Mon Sep 26 00:43:25 2011 (r968) +++ branches/gdl-frontend/src/xml/xtm/exporter.lisp Mon Sep 26 01:12:10 2011 (r969) @@ -78,10 +78,11 @@ (if ,tm (union (filter-type-instance-topics (d:topics ,tm) tm :revision revision) - (d:associations ,tm)) + (list-extern-associations :revision revision)) (union (elephant:get-instances-by-class 'd:TopicC) - (list-extern-associations :revision revision))))))) + (d:associations ,tm))))))) + (defun export-as-xtm (xtm-path &key