[isidorus-cvs] r721 - trunk/src/rest_interface

[lgiessmann at common-lisp.net]

Author: lgiessmann
Date: Fri Aug 12 01:48:57 2011
New Revision: 721

Log:
trunk: rest-itnerface: fixed a compile error

Modified:
   trunk/src/rest_interface/set-up-json-interface.lisp

Modified: trunk/src/rest_interface/set-up-json-interface.lisp
==============================================================================
--- trunk/src/rest_interface/set-up-json-interface.lisp	Fri Aug 12 01:43:53 2011	(r720)
+++ trunk/src/rest_interface/set-up-json-interface.lisp	Fri Aug 12 01:48:57 2011	(r721)
@@ -541,36 +541,6 @@
 		 (serialize-fragment (d:create-latest-fragment-of-topic top)
 				     (fragment-serializer)))
 	 (delete-duplicates (delete-if #'null tops)))))
-    
-
-(defun update-fragments-after-commit (new-fragment)
-  "Removes all fragments that belongs to the same topic that the
-   new fragment is bound to, but are older than the new fragment.
-   Updates all fragments that are bound to topics that are players
-   of associations contained in the new fragment."
-  (declare (FragmentC new-fragment))
-  (map nil (lambda(frg)
-	     (when (not (eql frg new-fragment))
-	       (elephant:drop-instance frg)))
-       (elephant:get-instances-by-value
-	'd:FragmentC 'd::topic (d:topic new-fragment)))
-  (let* ((rev (d:revision new-fragment))
-	 (top (d:topic new-fragment))
-	 (tops-to-update
-	  (delete
-	   top
-	   (let ((assocs (map 'list (lambda(role)
-				      (d:parent role :revision rev))
-			      (d:player-in-roles top :revision rev))))
-	     (loop for assoc in assocs
-		append (loop for role in (d:roles assoc :revision rev)
-			  collect (d:player role :revision rev)))))))
-    (map nil (lambda(top)
-	       (map nil #'elephant:drop-instance
-		    (elephant:get-instances-by-value 'd:FragmentC 'd::topic top))
-	       (d:serialize-fragment (create-latest-fragment-of-topic top)
-				     (fragment-serializer)))
-	 tops-to-update)))
 
 
 (defun return-topic-summaries(&optional param)