From 675787bcd3b666fe5dd19e9eeba6ddd5fc5df0d5 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 12 Feb 2016 18:34:15 +1100 Subject: [PATCH] Finish up cl-defmethoding registry,el * lisp/gnus/registry.el (initialize-instance): Use cl-defmethod. --- lisp/gnus/registry.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el index d89ba48eabb..6684c258827 100644 --- a/lisp/gnus/registry.el +++ b/lisp/gnus/registry.el @@ -129,7 +129,7 @@ :type hash-table :documentation "The data hashtable."))) -(defmethod initialize-instance :BEFORE ((this registry-db) slots) +(cl-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)))) -(defmethod initialize-instance :AFTER ((this registry-db) slots) +(cl-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) -- 2.39.2