[isidorus-cvs] r710 - trunk/src/model

[lgiessmann at common-lisp.net]

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))))