[isidorus-cvs] r127 - trunk/src/xml/rdf - isidorus-cvs@common-lisp.net - mailman3.common-lisp.net

31 Aug 2009

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)))))))

    