diff --git a/ansi-tests/defmethod.lsp b/ansi-tests/defmethod.lsp index 4971b6bc7a54512e44f06989448564a8c5fe645c..d4d5e3c9ec6782db5306a8678446d32181311644 100644 --- a/ansi-tests/defmethod.lsp +++ b/ansi-tests/defmethod.lsp @@ -210,10 +210,21 @@ (eval `(signals-error (,sym 1 2) program-error)))) t t) +(deftest defmethod.error.14 + (let ((sym (gensym))) + (eval `(locally (declare (optimize safety)) (defmethod ,sym ((x t) &key) x))) + (values (eval `(signals-error (,sym) program-error)) + (eval `(signals-error (,sym 1 2) program-error)) + (eval `(signals-error (,sym 1 :bogus t) program-error)) + (eval `(signals-error (,sym 1 :allow-other-keys nil :allow-other-keys t :bogus t) program-error)))) + t t t t) - - - - +(deftest defmethod.error.15 + (let ((sym (gensym))) + (eval `(locally (declare (optimize safety)) (defmethod ,sym ((x t) &key y) x))) + (values (eval `(signals-error (,sym 1 :bogus t) program-error)) + (eval `(signals-error (,sym 1 :y) program-error)) + (eval `(signals-error (,sym 1 3 nil) program-error)))) + t t t)