[Emacs-diffs] master 0ff58f6 12/12: Partially revert the defmethod->cl-defmethod change in registry.el

[Lars Ingebrigtsen]

branch: master
commit 0ff58f69651faa1aa36ff45d4012a19938642412
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Partially revert the defmethod->cl-defmethod change in registry.el
    
    * lisp/gnus/registry.el (initialize-instance): Use defmethod,
    since cl-defmethod doesn't work with :after.
    (initialize-instance): Ditto, but with :before.
---
 lisp/gnus/registry.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el
index 9182920..d89ba48 100644
--- a/lisp/gnus/registry.el
+++ b/lisp/gnus/registry.el
@@ -129,7 +129,7 @@
          :type hash-table
          :documentation "The data hashtable.")))
 
-(cl-defmethod initialize-instance :BEFORE ((this registry-db) slots)
+(defmethod initialize-instance :BEFORE ((this registry-db) slots)
   "Check whether a registry object needs to be upgraded."
   ;; Hardcoded upgrade routines.  Version 0.1 to 0.2 requires the
   ;; :max-soft slot to disappear, and the :max-hard slot to be renamed
@@ -146,7 +146,7 @@
       (cl-remf slots :max-hard)
       (cl-remf slots :max-soft))))
 
-(cl-defmethod initialize-instance :AFTER ((this registry-db) slots)
+(defmethod initialize-instance :AFTER ((this registry-db) slots)
   "Set value of data slot of THIS after initialization."
   (with-slots (data tracker) this
     (unless (member :data slots)