Changeset 805

Timestamp:

08/30/11 07:46:40 (14 years ago)

Author:

lgiessmann

Message:

 

File:

• trunk/src/json/JTM/jtm_tools.lisp (modified) (1 diff)

trunk/src/json/JTM/jtm_tools.lisp ¶

@@ -112 +112 @@
                   (get-all-topics revision)))
              (tm-assocs
-              (xtm-exporter::list-extern-associations :revision revision))
-                     ;(let ((assocs
-                     ;(if tm
-                     ;(delete-if #'(lambda(assoc)
-                     ;(not (find-item-by-revision assoc revision)))
-                     ;(associations tm))
-                     ;(get-all-associations revision))))
-                     ;(if version-1.1-p
-                     ;(set-difference
-                     ;assocs
-                     ;(loop for top in tm-tops
-                     ;append (instance-of-associations top :revision revision)))
-                     ;assocs)))
+              ;(xtm-exporter::list-extern-associations :revision revision))
+              (let ((assocs
+                     (if tm
+                         (delete-if #'(lambda(assoc)
+                                        (not (find-item-by-revision assoc revision)))
+                                    (associations tm))
+                         (get-all-associations revision))))
+                (if version-1.1-p
+                    (set-difference
+                     assocs
+                     (loop for top in tm-tops
+                        append (instance-of-associations top :revision revision)))
+                    assocs)))
              (prefixes
               (when version-1.1-p