[isidorus-cvs] r280 - in trunk/src: . json

[Lukas Giessmann]

Author: lgiessmann
Date: Thu Apr 15 17:08:47 2010
New Revision: 280

Log:
json: fixed a function-reference error

Modified:
   trunk/src/isidorus.asd
   trunk/src/json/json_exporter.lisp

Modified: trunk/src/isidorus.asd
==============================================================================
--- trunk/src/isidorus.asd	(original)
+++ trunk/src/isidorus.asd	Thu Apr 15 17:08:47 2010
@@ -156,7 +156,8 @@
 				     "json"
 				     "threading"))
 	       (:module "json"
-	                :components ((:file "json_exporter")
+	                :components ((:file "json_exporter"
+					    :depends-on ("json_tmcl_constants"))
 				     (:file "json_importer")
 				     (:file "json_tmcl_validation"
 					    :depends-on ("json_tmcl_constants" "json_exporter" ))

Modified: trunk/src/json/json_exporter.lisp
==============================================================================
--- trunk/src/json/json_exporter.lisp	(original)
+++ trunk/src/json/json_exporter.lisp	Thu Apr 15 17:08:47 2010
@@ -298,7 +298,7 @@
    (remove-if #'null (map 'list #'(lambda(psi-list)
 				    (when psi-list
 				      (map 'list #'uri psi-list)))
-			  (json-tmcl::clean-topics
+			  (clean-topics
 			   (elephant:get-instances-by-class 'TopicC))))))