Re: Turning Gnus groups into real objects

[Stefan Monnier]

> (defclass gnus-server ()
>   ((address :type string)
>   ...))
>
> (defclass gnus-nnimap (gnus-server)
>   ((capabilities
>     :type string)
>    (newlinep
>     :type boolean)
>    ...))

Aka

    (cl-defstruct (gnus-server)
      (address nil :type string))

    (cl-defstruct (gnus-nnimap
                   (:include gnus-server))
      (capabilities nil :type string)
      (newlinep     nil :type boolean))

> (cl-defmethod gnus-request-list ((server gnus-nnimap))

BTW, I was wondering whether we could preserve backward compatiblity with
defvoo and defffoo.  But I guess for `defvoo`, we'd need the equivalent
of `define-symbol-macro` whereas we currently only have `cl-symbol-macrolet`.


        Stefan