I'll put these in tomorrow, my current short-term deadline is tonight. Ian
Aycan iRiCAN wrote: > Here is a typo fix for the cvs head. > > $ cvs diff -u src/elephant/classindex.lisp > Index: src/elephant/classindex.lisp > =================================================================== > RCS file: /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp,v > retrieving revision 1.13 > diff -u -r1.13 classindex.lisp > --- src/elephant/classindex.lisp 19 Jun 2006 01:03:30 -0000 1.13 > +++ src/elephant/classindex.lisp 18 Jul 2006 15:50:58 -0000 > @@ -257,12 +257,12 @@ > slot-name (class-name class)) > (progn > (when update-class (register-indexed-slot class slot-name)) > -;; (with-transaction (:store-controller sc) > - (add-index (find-class-index class :sc sc) > - :index-name slot-name > - :key-form (make-slot-key-form class slot-name) > - :populate populate)) > - t)) > + ;; (with-transaction (:store-controller sc) > + (add-index (find-class-index class :sc sc) > + :index-name slot-name > + :key-form (make-slot-key-form class slot-name) > + :populate populate) > + t))) > > (defmethod remove-class-slot-index ((class symbol) slot-name &key (sc > *store-controller*)) > (remove-class-slot-index (find-class class) slot-name :sc sc)) > > > Best Regards. > > > ------------------------------------------------------------------------ > > _______________________________________________ > 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
