Re: EIEIO default constructor function

[Stefan Monnier <monnier@iro.umontreal.ca>]

> Maybe I was using sloppy terminology, but as far as I can see, `cl-defstruct'
> can not have a parent relationship, so what I call inheritance-based
> dispatch isn't really possible with cl-defstruct?
>
> (defclass foo () ())
> (cl-defmethod val ((foo foo)) 0)
> (defclass bar (foo) ())
> (cl-defmethod val ((bar bar)) 1)

    (cl-defstruct (my-foo)
      slot1)
    (cl-defmethod my-val ((x my-foo)) (my-foo-slot1 x))
    (cl-defstruct (my-bar
                   (:include my-foo))
      slot2)
    (cl-defmethod my-val ((x my-bar))
      (+ (my-bar-slot2 x) (cl-call-next-method)))

     (my-val (make-my-bar :slot1 4 :slot2 5))
     ==> 9


-- Stefan