diff --git a/ansi-tests/define-method-combination.lsp b/ansi-tests/define-method-combination.lsp index 102e086a348dc13352631aee6338e0c48dc6b325..b045d0f85d40ab8d40a131f010f3e75d25cb7c8f 100644 --- a/ansi-tests/define-method-combination.lsp +++ b/ansi-tests/define-method-combination.lsp @@ -66,36 +66,39 @@ (defgeneric dmc-gf-03 (x) (:method-combination times)) (deftest define-method-combination-03.1 - (handler-case - (progn - (eval '(defmethod dmc-gf-03 ((x integer)) t)) - :bad) - (error () - (dolist (meth (compute-applicable-methods #'dmc-gf-03 (list 1))) - (remove-method #'dmc-gf-03 meth)) - :good)) + (prog1 + (handler-case + (progn + (eval '(defmethod dmc-gf-03 ((x integer)) t)) + (eval '(dmc-gf-03 1)) + :bad) + (error () :good)) + (dolist (meth (compute-applicable-methods #'dmc-gf-03 (list 1))) + (remove-method #'dmc-gf-03 meth))) :good) (deftest define-method-combination-03.2 - (handler-case - (progn - (eval '(defmethod dmc-gf-03 :before ((x cons)) t)) - :bad) - (error () - (dolist (meth (compute-applicable-methods #'dmc-gf-03 (list '(a)))) - (remove-method #'dmc-gf-03 meth)) - :good)) + (prog1 + (handler-case + (progn + (eval '(defmethod dmc-gf-03 :before ((x cons)) t)) + (eval '(dmc-gf-03 (cons 'a 'b))) + :bad) + (error () :good)) + (dolist (meth (compute-applicable-methods #'dmc-gf-03 (list '(a)))) + (remove-method #'dmc-gf-03 meth))) :good) (deftest define-method-combination-03.3 - (handler-case - (progn - (eval '(defmethod dmc-gf-03 :after ((x symbol)) t)) - :bad) - (error () - (dolist (meth (compute-applicable-methods #'dmc-gf-03 (list 'a))) - (remove-method #'dmc-gf-03 meth)) - :good)) + (prog1 + (handler-case + (progn + (eval '(defmethod dmc-gf-03 :after ((x symbol)) t)) + (eval '(dmc-gf-03 'a)) + :bad) + (error () :good)) + (dolist (meth (compute-applicable-methods #'dmc-gf-03 (list 'a))) + (remove-method #'dmc-gf-03 meth))) :good) (define-method-combination times2