From e881e5fa86d07824bf1655de84fef5c703eebf81 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Mon, 10 May 2021 13:36:01 +0200 Subject: [PATCH] tests: add missing validate-superclass methods to a few MOP tests --- src/tests/normal-tests/metaobject-protocol.lsp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/tests/normal-tests/metaobject-protocol.lsp b/src/tests/normal-tests/metaobject-protocol.lsp index 277c89509..b499fe8ff 100644 --- a/src/tests/normal-tests/metaobject-protocol.lsp +++ b/src/tests/normal-tests/metaobject-protocol.lsp @@ -58,6 +58,8 @@ (= 3 (eval '(progn (defclass foo-metaclass (standard-class) ()) + (defmethod mop:validate-superclass ((c1 foo-metaclass) (c2 standard-class)) + t) (defclass faa () ((a :initform 2 :initarg :a)) (:metaclass foo-metaclass)) (prog1 (slot-value (make-instance 'faa :a 3) 'a) (cl-test::delete-class 'foo-metaclass 'faa))))))) @@ -136,6 +138,8 @@ (eval '(let ((*aux* 5)) (declare (special *aux*)) (defclass foo-metaclass (standard-class) ()) + (defmethod mop:validate-superclass ((c1 foo-metaclass) (c2 standard-class)) + t) (defmethod shared-initialize ((class foo-metaclass) slot-names &rest initargs &key option) (prog1 (call-next-method) @@ -261,6 +265,8 @@ the metaclass") (eval '(let ((*aux* 5)) (declare (special *aux*)) (defclass foo-metaclass (standard-class) ()) + (defmethod mop:validate-superclass ((c1 foo-metaclass) (c2 standard-class)) + t) (defmethod shared-initialize ((class foo-metaclass) slot-names &rest initargs &key ((cl-user::option option))) (prog1 (call-next-method)