From 23428b8af9e60af889bd3313ef6bc43aa04fca4d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Thu, 16 Feb 2023 20:53:56 +0100 Subject: [PATCH] cosmetic: clos: declare unused variables as ignored --- src/clos/method.lsp | 2 ++ src/clos/stdmethod.lsp | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/clos/method.lsp b/src/clos/method.lsp index 852b061da..7d242f31b 100644 --- a/src/clos/method.lsp +++ b/src/clos/method.lsp @@ -64,6 +64,7 @@ (parse-specialized-lambda-list specialized-lambda-list) (multiple-value-bind (lambda-form declarations documentation) (make-raw-lambda name lambda-list required-parameters specializers body env) + (declare (ignore declarations)) (multiple-value-bind (proto-gf proto-method) (prototypes-for-make-method-lambda name) (multiple-value-bind (fn-form options) @@ -181,6 +182,7 @@ (declare (ignore method gf)) (multiple-value-bind (call-next-method-p next-method-p-p in-closure-p) (walk-method-lambda method-lambda env) + (declare (ignore call-next-method-p next-method-p-p)) (values `(lambda (.combined-method-args. *next-methods*) (declare (special .combined-method-args. *next-methods*)) (apply ,(if in-closure-p diff --git a/src/clos/stdmethod.lsp b/src/clos/stdmethod.lsp index d22337a83..97429c850 100644 --- a/src/clos/stdmethod.lsp +++ b/src/clos/stdmethod.lsp @@ -33,7 +33,7 @@ &key (specializers nil spec-supplied-p) (lambda-list nil lambda-supplied-p) generic-function) - (declare (ignore initargs method slot-names)) + (declare (ignore initargs method slot-names generic-function)) (when slot-names (unless spec-supplied-p (error "Specializer list not supplied in method initialization"))