bdb-query-code.lisp

(ele:with-transaction ()
	     (mapcar #'(lambda (oid)
			 (ele::controller-recreate-instance ele:*store-controller* oid))
		     (ele:with-btree-cursor (curs (ele:find-inverted-index class slot))
		       (loop with i = 0
			  for (m k v) = (multiple-value-list (ele:cursor-last curs))
			  then (multiple-value-list (ele:cursor-prev curs))
			  while (and m (if count 
					   (<= (incf i) count)
					   t))
			  collect  v))))