CEDET

Hi

  I just see something I don't understand.  Calling a generic
function modifying the eieio-method-obarray's obarrays of this
generic function.  Here is an example:

    (defclass C () ())

    (defmethod f ((c C))
      (message "f(C): %s" c))

    (get 'f 'eieio-method-obarray)

      ==>
        [[0 0 0 0 0 0 0 0 0 0 0]
         [0 0 0 0 0 0 0 0 0 0 0]
         [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 C 0 ... 0]
         [0 0 0 0 0 0 0 0 0 0 0]
         nil nil nil]

    (f (make-instance 'C))

    (get 'f 'eieio-method-obarray)

      ==>
        [[0 0 0 0 0 0 0 0 0 0 0]
         [0 C 0 0 0 0 0 0 0 0 0]
         [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 C 0 ... 0]
         [0 C 0 0 0 0 0 0 0 0 0]
         nil nil nil]

  Symbols were created in the :AFTER and :STATIC obarrays.

    (let* ((obarrays  (get 'f 'eieio-method-obarray))
           (after-ob  (aref obarrays 1))
           (after-sym (aref after-ob 1))
           (prim-ob   (aref obarrays 2))
           (prim-sym  (aref prim-ob 26))
           (stat-ob   (aref obarrays 3))
           (stat-sym  (aref stat-ob 1)))
      (mapcar (lambda (s)
                (when (fboundp s)
                  (symbol-function s)))
              (list after-sym prim-sym stat-sym)))

      ==>
        (nil
         (lambda (c)
           (message "f(C): %s" c))
         nil)

  Are these symbols rights?  Where they are created?

  BTW, I don't really understand what is the obarray
optimisation.  Can someone explain it in a few lines?

  Thanks,

--drkm