From fee2e08f5f30a1b3a0665c63d1c85c8576da449f Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Mon, 9 Feb 2009 00:00:26 +0000 Subject: [PATCH] mdw-mop: Move DEFGENERIC of SLOT-DEFINITION-FILTER. Organization: Straylight/Edgeware From: Mark Wooding For some reason, it was between the two (implicit) method definitions rather than before them. This causes warnings, particularly from CLisp. --- mdw-mop.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/mdw-mop.lisp b/mdw-mop.lisp index e813f97..7af8ad9 100644 --- a/mdw-mop.lisp +++ b/mdw-mop.lisp @@ -221,13 +221,13 @@ (defclass filtered-slot-class-mixin (compatible-class) (Yes, I know that using functions would be nicer, but the MOP makes that surprisingly difficult.)")) +(defgeneric slot-definition-filter (slot) + (:method ((slot slot-definition)) nil)) + (defclass filtered-direct-slot-definition (standard-direct-slot-definition) ((filter :initarg :filter :reader slot-definition-filter))) -(defgeneric slot-definition-filter (slot) - (:method ((slot slot-definition)) nil)) - (defclass filtered-effective-slot-definition (standard-effective-slot-definition) ((filter :initarg :filter :accessor slot-definition-filter))) -- [mdw]