Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
abcl
abcl
Commits
68acec5b
Commit
68acec5b
authored
Aug 31, 2012
by
ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files
Fix more DMC-TEST-ARGS-WITH-WHOLE.* tests.
parent
0ab6b33f
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/lisp/abcl/clos-tests.lisp
View file @
68acec5b
...
...
@@ -330,7 +330,7 @@
(
define-method-combination
dmc-test-args-with-whole.2
()
((
methods
()))
(
:arguments
&whole
whole
&rest
rest
)
`
(
progn
(
format
nil
"using ~a ~a"
whole
rest
)
`
(
progn
(
format
nil
"using ~a ~a"
,
whole
,
rest
)
,@
(
mapcar
(
lambda
(
method
)
`
(
call-method
,
method
))
methods
)))
...
...
@@ -346,7 +346,7 @@
(
define-method-combination
dmc-test-args-with-whole.3a
()
((
methods
()))
(
:arguments
&whole
whole
&optional
opt
)
`
(
progn
(
format
nil
"using ~a ~a"
whole
opt
)
`
(
progn
(
format
nil
"using ~a ~a"
,
whole
,
opt
)
,@
(
mapcar
(
lambda
(
method
)
`
(
call-method
,
method
))
methods
)))
...
...
@@ -361,7 +361,7 @@
(
define-method-combination
dmc-test-args-with-whole.3b
()
((
methods
()))
(
:arguments
&whole
whole
&optional
opt
&key
k
)
`
(
progn
(
format
nil
"using ~a ~a ~a"
whole
opt
k
)
`
(
progn
(
format
nil
"using ~a ~a ~a"
,
whole
,
opt
,
k
)
,@
(
mapcar
(
lambda
(
method
)
`
(
call-method
,
method
))
methods
)))
...
...
@@ -376,7 +376,7 @@
(
define-method-combination
dmc-test-args-with-whole.3c
()
((
methods
()))
(
:arguments
&whole
whole
&optional
opt
&rest
r
)
`
(
progn
(
format
nil
"using ~a ~a ~a"
whole
opt
r
)
`
(
progn
(
format
nil
"using ~a ~a ~a"
,
whole
,
opt
,
r
)
,@
(
mapcar
(
lambda
(
method
)
`
(
call-method
,
method
))
methods
)))
...
...
@@ -392,7 +392,7 @@
(
define-method-combination
dmc-test-args-with-whole.3d
()
((
methods
()))
(
:arguments
&whole
whole
&optional
opt
&rest
r
&key
k
)
`
(
progn
(
format
nil
"using ~a ~a ~a ~a"
whole
opt
r
k
)
`
(
progn
(
format
nil
"using ~a ~a ~a ~a"
,
whole
,
opt
,
r
,
k
)
,@
(
mapcar
(
lambda
(
method
)
`
(
call-method
,
method
))
methods
)))
...
...
@@ -407,7 +407,7 @@
(
define-method-combination
dmc-test-args-with-whole.4
()
((
methods
()))
(
:arguments
&whole
whole
&key
k
)
`
(
progn
(
format
nil
"using ~a ~a"
whole
k
)
`
(
progn
(
format
nil
"using ~a ~a"
,
whole
,
k
)
,@
(
mapcar
(
lambda
(
method
)
`
(
call-method
,
method
))
methods
)))
...
...
@@ -422,7 +422,7 @@
(
define-method-combination
dmc-test-args-with-whole.5
()
((
methods
()))
(
:arguments
&whole
whole
&aux
a
)
`
(
progn
(
format
nil
"using ~a ~a"
whole
a
)
`
(
progn
(
format
nil
"using ~a ~a"
,
whole
,
a
)
,@
(
mapcar
(
lambda
(
method
)
`
(
call-method
,
method
))
methods
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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