Author: lgiessmann Date: Thu Aug 4 09:42:28 2011 New Revision: 710 Log: trunk: datamodel: improved the function find-most-recent-version-info for searach operation that searches for the end-revision 0, that is frequently used Modified: trunk/src/model/datamodel.lisp Modified: trunk/src/model/datamodel.lisp ============================================================================== --- trunk/src/model/datamodel.lisp Thu Aug 4 09:24:29 2011 (r709) +++ trunk/src/model/datamodel.lisp Thu Aug 4 09:42:28 2011 (r710) @@ -1140,8 +1140,8 @@ (when (find-if #'(lambda(vi) (and (>= revision (start-revision vi)) - (or (< revision (end-revision vi)) - (= 0 (end-revision vi))))) + (or (= 0 (end-revision vi)) + (< revision (end-revision vi))))) (versions construct)) construct))))