mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-25 14:01:07 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: add missing validate-superclass methods to a few MOP tests

Browse source
This commit is contained in:
Daniel Kochmański 2021-05-10 13:36:01 +02:00
parent 0e5174c040
commit e881e5fa86
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/tests/normal-tests/metaobject-protocol.lsp
View file

@ -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)