Skip to content
Snippets Groups Projects
Commit 58b90b23 authored by pw's avatar pw
Browse files

Use IGNORABLE declaration for .ARGS-TAIL. to kill spurious

warnings when &aux vars are used in defmethods
parent 517578bf
No related branches found
No related tags found
No related merge requests found
...@@ -980,7 +980,7 @@ work during bootstrapping. ...@@ -980,7 +980,7 @@ work during bootstrapping.
(let ((bindings (mapcan #'process-var lambda-list))) (let ((bindings (mapcan #'process-var lambda-list)))
`(let* ((,args-tail ,args) `(let* ((,args-tail ,args)
,@bindings) ,@bindings)
,@(unless bindings `((declare (ignore ,args-tail)))) (declare (ignorable ,args-tail))
,@body))))) ,@body)))))
(defun get-key-arg (keyword list) (defun get-key-arg (keyword list)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment