[isidorus-cvs] r289 - trunk/src/json

[Lukas Giessmann]

Author: lgiessmann
Date: Wed Apr 28 05:35:03 2010
New Revision: 289

Log:
json-exporter: fixed a bug in the function "get-all-topics"

Modified:
   trunk/src/json/json_exporter.lisp

Modified: trunk/src/json/json_exporter.lisp
==============================================================================
--- trunk/src/json/json_exporter.lisp	(original)
+++ trunk/src/json/json_exporter.lisp	Wed Apr 28 05:35:03 2010
@@ -298,8 +298,10 @@
    (remove-if #'null (map 'list #'(lambda(psi-list)
 				    (when psi-list
 				      (map 'list #'uri psi-list)))
-			  (clean-topics
-			   (elephant:get-instances-by-class 'TopicC))))))
+			  (map 'list
+			       #'d:psis
+			       (clean-topics
+				(elephant:get-instances-by-class 'TopicC)))))))
 
 
 (defun to-json-string-summary (topic)