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