mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-12 07:50:26 -07:00
Code Issues Projects Releases Packages Wiki Activity

cosmetic: clos: declare unused variables as ignored

Browse source
This commit is contained in:
Daniel Kochmański 2023-02-16 20:53:56 +01:00
parent c38a18bd01
commit 23428b8af9
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clos/method.lsp
View file

@ -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

2
src/clos/stdmethod.lsp
View file

@ -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"))