Nope, easy enough to add one if you want to provide a patch to
elephant-unstable in the file src/elephant/collections.lisp.
There is with-class-cursor and with-inverted-cursor which deals with
class and slot indices.
Ian
On Jun 23, 2008, at 11:20 AM, Tayssir John Gabbour wrote:
Hi!
Is there something like WITH-INDEX-CURSOR or WITH-BTREE-INDEX-CURSOR?
Also, btree-index-cursors (under Postmodern) can't print, signalling
an unbound-slot error:
(open-store *my-spec*)
(add-to-root :blah (make-indexed-btree))
(add-index (get-from-root :blah)
:index-name :ind
:key-form '(lambda (secondary-db primary-key value)
(declare (ignore secondary-db primary-key))
(if (evenp value)
(values t 0)
(values t 1))))
(setf (get-value :test1 (get-from-root :blah))
1
(get-value :test2 (get-from-root :blah))
2
(get-value :test3 (get-from-root :blah))
3)
(defparameter *blah* (make-cursor (get-index (get-from-
root :blah) :ind)))
*blah*
;; debugger invoked on a UNBOUND-SLOT in thread
;; #<THREAD "worker" {B0A9371}>:
;; (A UNBOUND-SLOT was caught when trying to print
;; SB-DEBUG:*DEBUG-CONDITION* when entering the debugger.
;; Printing was aborted and the UNBOUND-SLOT was stored in
;; SB-DEBUG::*NESTED-DEBUG-CONDITION*.)
;; (CELL-ERROR-NAME SB-DEBUG::*NESTED-DEBUG-CONDITION*) =
;; DB-POSTMODERN::NAME
(I'm running Elephant 0.9, Postmodern 1.12, SBCL 1.0.12 and Debian
Linux.)
Thanks,
Tayssir
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
