[isidorus-cvs] r127 - trunk/src/xml/rdf

[Lukas Giessmann]

Author: lgiessmann
Date: Mon Aug 31 16:01:56 2009
New Revision: 127

Log:
rdf-exporter: fixed a bug with exporting association which has to be mapped as sisidorus:Association nodes

Modified:
   trunk/src/xml/rdf/exporter.lisp

Modified: trunk/src/xml/rdf/exporter.lisp
==============================================================================
--- trunk/src/xml/rdf/exporter.lisp	(original)
+++ trunk/src/xml/rdf/exporter.lisp	Mon Aug 31 16:01:56 2009
@@ -97,7 +97,7 @@
                   (d:find-item-by-revision top revision))
               (if ,tm
                   (union
-                    (d:topics ,tm) (d:associations ,tm))
+                    (d:topics ,tm) (intersection (list-tm-associations) (d:associations ,tm)))
                   (union
                    (elephant:get-instances-by-class 'd:TopicC)
                    (list-tm-associations)))))))