[elephant-devel] typo fix

Aycan iRiCAN aycan.irican at core.gen.tr
Tue Jul 18 16:04:20 UTC 2006


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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 190 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/elephant-devel/attachments/20060718/896aafba/attachment.sig>


More information about the elephant-devel mailing list