From f600e2a2e432a283045c18119dc96c6000c7a912 Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Tue, 26 Dec 2023 22:32:13 -0500 Subject: [PATCH] Fix some random irrelevant complaints from tests --- tests/clos.impure.lisp | 11 ++++++++--- tests/mop-31.impure.lisp | 2 ++ 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp index b44b2a806..f4dacf8a1 100644 --- a/tests/clos.impure.lisp +++ b/tests/clos.impure.lisp @@ -54,7 +54,7 @@ (declare (ignore args)) :no-applicable-method) (defmethod sb-pcl:no-primary-method ((zut-n-a-m (eql #'zut-n-a-m)) &rest args) - (declare (ignore-args)) + (declare (ignore args)) :no-primary-method) (with-test (:name no-applicable-method) (assert (eq :no-applicable-method (zut-n-a-m 1 2 3)))) @@ -1358,7 +1358,9 @@ ;;; verify that we can still detect no primary methods and invalid qualifiers -(defmethod gf-with-keys-and-no-primary-method :around ((x integer) &key b) (1+ x)) +(defmethod gf-with-keys-and-no-primary-method :around ((x integer) &key b) + (declare (ignore b)) + (1+ x)) (with-test (:name (:check-keyword-args :no-primary-method :no-keywords :error)) (assert-error (gf-with-keys-and-no-primary-method 3) sb-pcl::no-primary-method-error)) @@ -1370,7 +1372,10 @@ (defgeneric gf-with-keys-and-invalid-qualifier (x &key) (:method-combination progn)) -(defmethod gf-with-keys-and-invalid-qualifier progn ((x integer) &key b) (print (1+ x))) +(defmethod gf-with-keys-and-invalid-qualifier progn ((x integer) &key b) + (declare (ignore b)) + (print (1+ x))) +;; I'm guessing this is PROGN but spelled wrong purposely, right? (defmethod gf-with-keys-and-invalid-qualifier prong ((x fixnum) &key c) (print c)) (with-test (:name (:check-keyword-args :invalid-qualifier :no-keywords :error)) diff --git a/tests/mop-31.impure.lisp b/tests/mop-31.impure.lisp index 6462f8067..d1486c369 100644 --- a/tests/mop-31.impure.lisp +++ b/tests/mop-31.impure.lisp @@ -26,9 +26,11 @@ T) (defmethod sb-mop:direct-slot-definition-class ((class metaclass) &rest initargs) + (declare (ignore initargs)) (find-class 'sb-mop:standard-direct-slot-definition)) (defmethod sb-mop:effective-slot-definition-class ((class metaclass) &rest initargs) + (declare (ignore initargs)) (find-class 'sb-mop:standard-effective-slot-definition)) (defmethod sb-mop:slot-value-using-class ((class metaclass) object slot)