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

[lgiessmann at common-lisp.net]

Author: lgiessmann
Date: Fri Aug  5 00:51:26 2011
New Revision: 713

Log:
trunk: datamodel: changed get-latest-topic-by-psi due to poerformance reasons

Modified:
   trunk/src/model/datamodel.lisp

Modified: trunk/src/model/datamodel.lisp
==============================================================================
--- trunk/src/model/datamodel.lisp	Fri Aug  5 00:29:30 2011	(r712)
+++ trunk/src/model/datamodel.lisp	Fri Aug  5 00:51:26 2011	(r713)
@@ -736,12 +736,13 @@
 	 (elephant:get-instance-by-value
 	  'PersistentIdC 'uri topic-psi)))
     (when psi-inst
-      (let ((latest-va
-	     (get-most-recent-versioned-assoc
-	      psi-inst 'identified-construct)))
-	(when (and latest-va (versions latest-va))
-	  (identified-construct
-	   psi-inst :revision (start-revision (first (versions latest-va)))))))))
+      (identified-construct psi-inst :revision 0))))
+      ;(let ((latest-va
+      ;(get-most-recent-versioned-assoc
+      ;psi-inst 'identified-construct)))
+      ;(when (and latest-va (versions latest-va))
+      ;(identified-construct
+      ;psi-inst :revision (start-revision (first (versions latest-va)))))))))
 
 
 (defun get-db-instances-by-class (class-symbol &key (revision *TM-REVISION*))