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