From 46ee2f35d4fce25a388c158a7d46722e0c87fd78 Mon Sep 17 00:00:00 2001 From: Jan Moringen Date: Mon, 17 Jul 2017 01:17:56 +0200 Subject: [PATCH] tests: Check source paths for DEF{GENERIC,METHOD} lambda list errors --- tests/error-source-path.impure.lisp | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/tests/error-source-path.impure.lisp b/tests/error-source-path.impure.lisp index cd853d7d0..8b4a9b750 100644 --- a/tests/error-source-path.impure.lisp +++ b/tests/error-source-path.impure.lisp @@ -93,6 +93,16 @@ (assert-condition-source-paths (declare (1)) (1)) (assert-condition-source-paths (declare (type integer) (1)) (2))) +(with-test (:name (:source-path defgeneric :lambda-list)) + (assert-condition-source-paths + (defgeneric foo (x x)) + (2))) + +(with-test (:name (:source-path defmethod :lambda-list)) + (assert-condition-source-paths + (defmethod foo (x x)) + (2))) + (defclass deprecated-class () ()) (declaim (deprecated :early "1.0" (type deprecated-class))) (defgeneric using-deprecated (thing)) -- 2.11.4.GIT