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. -- Aycan iRiCAN C0R3 Computer Security Group http://www.core.gen.tr
pgpgREqqWPn7D.pgp
Description: PGP signature
_______________________________________________ elephant-devel site list elephant-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/elephant-devel
