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)