Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ecl
ecl
Commits
e881e5fa
Commit
e881e5fa
authored
May 10, 2021
by
Daniel Kochmański
Browse files
tests: add missing validate-superclass methods to a few MOP tests
parent
0e5174c0
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/tests/normal-tests/metaobject-protocol.lsp
View file @
e881e5fa
...
...
@@ -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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment