[elephant-devel] typo fix

[Ian Eslick]

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 at common-lisp.net
> http://common-lisp.net/mailman/listinfo/elephant-devel