X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.impure.lisp;h=2113f59fc33eeaa18066a1587402f03b78319cc9;hb=1fa1730414b6c914e502d339945d0ad7a4a7f5d9;hp=e5de53236043dd82db49b3f8c23c7e2217dcfcfe;hpb=56b6d13d2758753d18a7413aa14ea25d025cf13e;p=sbcl.git

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index e5de532..2113f59 100644
--- 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))
-  `(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)