Nevermind, one of my changes has been responsible for that.
In fact I tried to implement the batch functionality for MAP-CLASS,
but it causes the above tests to fail.
It's just a small change and I'm not sure why it would cause these
problems:
--- old-elephant-1.0/src/elephant/indexed-slots.lisp 2009-03-24
17:29:32.000000000 +0100
+++ new-elephant-1.0/src/elephant/indexed-slots.lisp 2009-03-24
17:29:32.000000000 +0100
@@ -253,11 +253,12 @@
"Class ~A is not indexed" classname)
(return-from map-class nil))
;; (dump-schema-status sc classname)
- (loop for schema-id in schema-ids appending
- (map-index (if oids #'map-oid-fn #'map-fn)
- (controller-instance-class-index sc)
- :value schema-id
- :collect collect)))))
+ (with-batch-transaction (batch 200 schema-ids)
+ (loop for schema-id in batch appending
+ (map-index (if oids #'map-oid-fn #'map-fn)
+ (controller-instance-class-index sc)
+ :value schema-id
+ :collect collect))))))
(defun map-inverted-index (fn class index &rest args &key start end (value nil
value-p)
from-end collect oids)
"map-inverted-index maps a function of two variables, taking key
--
LinkedIn Profile: http://www.linkedin.com/in/polzer
Xing Profile: https://www.xing.com/profile/LeslieP_Polzer
Blog: http://blog.viridian-project.de/
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
