From 58b90b23d814f77f0960dffdeb6a2f1aed28ad12 Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Sun, 28 Dec 1997 18:42:32 +0000 Subject: [PATCH] Use IGNORABLE declaration for .ARGS-TAIL. to kill spurious warnings when &aux vars are used in defmethods --- pcl/boot.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pcl/boot.lisp b/pcl/boot.lisp index 22fd4edfe..220a02c34 100644 --- a/pcl/boot.lisp +++ b/pcl/boot.lisp @@ -980,7 +980,7 @@ work during bootstrapping. (let ((bindings (mapcan #'process-var lambda-list))) `(let* ((,args-tail ,args) ,@bindings) - ,@(unless bindings `((declare (ignore ,args-tail)))) + (declare (ignorable ,args-tail)) ,@body))))) (defun get-key-arg (keyword list) -- GitLab