[isidorus-cvs] r969 - in branches/gdl-frontend/src: anaToMia xml/xtm

[lgiessmann at common-lisp.net]

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