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)