projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove convoluted keyword argument processing in RESTART-CASE
[sbcl.git]
/
tests
/
clos.impure.lisp
diff --git
a/tests/clos.impure.lisp
b/tests/clos.impure.lisp
index
e5de532
..
2113f59
100644
(file)
--- a/
tests/clos.impure.lisp
+++ b/
tests/clos.impure.lisp
@@
-1226,8
+1226,7
@@
;;; test case from Gerd Moellmann
(define-method-combination r-c/c-m-1 ()
((primary () :required t))
;;; test case from Gerd Moellmann
(define-method-combination r-c/c-m-1 ()
((primary () :required t))
- `(restart-case (call-method ,(first primary))
- ()))
+ `(restart-case (call-method ,(first primary))))
(defgeneric r-c/c-m-1-gf ()
(:method-combination r-c/c-m-1)
(defgeneric r-c/c-m-1-gf ()
(:method-combination r-c/c-m-1)